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

	while ( $i < $len ) {

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

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

	return(0);
}

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

	return(0);
}


sub han2zen
{
	local($string, $next_index) = @_;

	# ガ行
	if ( $string eq "ｶﾞ" ) {
		printf( "ガ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ｷﾞ" ) {
		printf( "ギ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ｸﾞ" ) {
		printf( "グ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ｹﾞ" ) {
		printf( "ゲ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ｺﾞ" ) {
		printf( "ゴ" );
		return( $next_index + 2 );
	}

	# ザ行
	if ( $string eq "ｻﾞ" ) {
		printf( "ザ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ｼﾞ" ) {
		printf( "ジ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ｽﾞ" ) {
		printf( "ズ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ｾﾞ" ) {
		printf( "ゼ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ｿﾞ" ) {
		printf( "ゾ" );
		return( $next_index + 2 );
	}

	# ダ行
	if ( $string eq "ﾀﾞ" ) {
		printf( "ダ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ﾁﾞ" ) {
		printf( "ヂ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ﾂﾞ" ) {
		printf( "ヅ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ﾃﾞ" ) {
		printf( "デ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ﾄﾞ" ) {
		printf( "ﾄﾞ" );
		return( $next_index + 2 );
	}

	# バ行
	if ( $string eq "ﾊﾞ" ) {
		printf( "バ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ﾋﾞ" ) {
		printf( "ビ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ﾌﾞ" ) {
		printf( "ブ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ﾍﾞ" ) {
		printf( "ベ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ﾎﾞ" ) {
		printf( "ボ" );
		return( $next_index + 2 );
	}

	# パ行
	if ( $string eq "ﾊﾟ" ) {
		printf( "パ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ﾋﾟ" ) {
		printf( "ピ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ﾌﾟ" ) {
		printf( "プ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ﾍﾟ" ) {
		printf( "ぺ" );
		return( $next_index + 2 );
	}

	if ( $string eq "ﾎﾟ" ) {
		printf( "ポ" );
		return( $next_index + 2 );
	}

	# ヴ
	if ( $string eq "ｳﾞ" ) {
		printf( "ヴ" );
		return( $next_index + 2 );
	}
	
	$string = substr( $string, 0, 1 );

	# ア行（小文字）
	if ( $string eq "ｧ" ) {
		printf( "ァ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｨ" ) {
		printf( "ィ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｩ" ) {
		printf( "ゥ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｪ" ) {
		printf( "ェ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｫ" ) {
		printf( "ォ" );
		return( $next_index + 1 );
	}

	# ア行（大文字）
	if ( $string eq "ｱ" ) {
		printf( "ア" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｲ" ) {
		printf( "イ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｳ" ) {
		printf( "ウ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｴ" ) {
		printf( "エ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｵ" ) {
		printf( "オ" );
		return( $next_index + 1 );
	}

	# カ行
	if ( $string eq "ｶ" ) {
		printf( "カ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｷ" ) {
		printf( "キ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｸ" ) {
		printf( "ク" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｹ" ) {
		printf( "ケ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｺ" ) {
		printf( "コ" );
		return( $next_index + 1 );
	}

	# サ行
	if ( $string eq "ｻ" ) {
		printf( "サ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｼ" ) {
		printf( "シ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｽ" ) {
		printf( "ス" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｾ" ) {
		printf( "セ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｿ" ) {
		printf( "ソ\" );
		return( $next_index + 1 );
	}

	# タ行
	if ( $string eq "ﾀ" ) {
		printf( "タ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾁ" ) {
		printf( "チ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾂ" ) {
		printf( "ツ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾃ" ) {
		printf( "テ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾄ" ) {
		printf( "ト" );
		return( $next_index + 1 );
	}

	# ナ行
	if ( $string eq "ﾅ" ) {
		printf( "ナ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾆ" ) {
		printf( "ニ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾇ" ) {
		printf( "ヌ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾈ" ) {
		printf( "ネ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾉ" ) {
		printf( "ノ" );
		return( $next_index + 1 );
	}

	# ハ行
	if ( $string eq "ﾊ" ) {
		printf( "ハ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾋ" ) {
		printf( "ヒ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾌ" ) {
		printf( "フ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾍ" ) {
		printf( "ヘ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾎ" ) {
		printf( "ホ" );
		return( $next_index + 1 );
	}

	# マ行
	if ( $string eq "ﾏ" ) {
		printf( "マ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾐ" ) {
		printf( "ミ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾑ" ) {
		printf( "ム" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾒ" ) {
		printf( "メ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾓ" ) {
		printf( "モ" );
		return( $next_index + 1 );
	}

	# ヤ行（小文字）
	if ( $string eq "ｬ" ) {
		printf( "ャ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｭ" ) {
		printf( "ュ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｮ" ) {
		printf( "ョ" );
		return( $next_index + 1 );
	}

	# ヤ行（大文字）
	if ( $string eq "ﾔ" ) {
		printf( "ヤ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾕ" ) {
		printf( "ユ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾖ" ) {
		printf( "ヨ" );
		return( $next_index + 1 );
	}

	# ラ行
	if ( $string eq "ﾗ" ) {
		printf( "ラ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾘ" ) {
		printf( "リ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾙ" ) {
		printf( "ル" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾚ" ) {
		printf( "レ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾛ" ) {
		printf( "ロ" );
		return( $next_index + 1 );
	}

	# ワ行
	if ( $string eq "ﾜ" ) {
		printf( "ワ" );
		return( $next_index + 1 );
	}

	if ( $string eq "ｦ" ) {
		printf( "ヲ" );
		return( $next_index + 1 );
	}

	# ン
	if ( $string eq "ﾝ" ) {
		printf( "ン" );
		return( $next_index + 1 );
	}

	# 句点
	if ( $string eq "｡" ) {
		printf( "。" );
		return( $next_index + 1 );
	}

	# 読点
	if ( $string eq "､" ) {
		printf( "、" );
		return( $next_index + 1 );
	}

	# かぎ括弧
	if ( $string eq "｢" ) {
		printf( "「" );
		return( $next_index + 1 );
	}

	if ( $string eq "｣" ) {
		printf( "」" );
		return( $next_index + 1 );
	}

	# 中黒
	if ( $string eq "･" ) {
		printf( "・" );
		return( $next_index + 1 );
	}

	# 濁点、半濁点
	if ( $string eq "ﾞ" ) {
		printf( "゛" );
		return( $next_index + 1 );
	}

	if ( $string eq "ﾟ" ) {
		printf( "゜" );
		return( $next_index + 1 );
	}

	# 長音記号
	if ( $string eq "ｰ" ) {
		printf( "ー" );
		return( $next_index + 1 );
	}

	# 小文字ッ
	if ( $string eq "ｯ" ) {
		printf( "ッ" );
		return( $next_index + 1 );
	}

	# その他の８bit文字
	printf( "%s", $string );
	return( $next_index + 1 );

}
exit;