while(<>) {
	s/[\r\n]//g;
	$len = length( $_ );
	$i = 0;

	while ( $i < $len ) {

		if ( &isascii( substr( $_, $i, 1 ) ) ) {
			$i++;
			next;
		}
		else {
			if ( &ishankana( substr( $_, $i, 1 ) ) ) {
				printf( "%s\n", $_ );
				last;
			}
			else {
				$i = $i + 2;
			}
		}
	}
}

sub isascii
{
	if ( $_[0] le "~" ) {
		return(1);
	}

	return(0);
}

sub ishankana
{
	if ( ( $_[0] ge "¡" ) && ( $_[0] le "ß" ) ) {
		return(1);
	}

	return(0);
}
exit;