• 追加された行はこの色です。
• 削除された行はこの色です。
• Perl/全角アルファベットと半角アルファベット へ行く。
• Perl/全角アルファベットと半角アルファベット の差分を削除

[[Perl]]

	$line =~   s/Ａ/A/g;
	$line =~   s/Ｂ/B/g;
	$line =~   s/Ｃ/C/g;
	$line =~   s/Ｄ/D/g;
	$line =~   s/Ｅ/E/g;
	$line =~   s/Ｆ/F/g;
	$line =~   s/Ｇ/G/g;
	$line =~   s/Ｈ/H/g;
	$line =~   s/Ｉ/I/g;
	$line =~   s/Ｊ/J/g;
	$line =~   s/Ｋ/K/g;
	$line =~   s/Ｌ/L/g;
	$line =~   s/Ｍ/M/g;
	$line =~   s/Ｎ/N/g;
	$line =~   s/Ｏ/O/g;
	$line =~   s/Ｐ/P/g;
	$line =~   s/Ｑ/Q/g;
	$line =~   s/Ｒ/R/g;
	$line =~   s/Ｓ/S/g;
	$line =~   s/Ｔ/T/g;
	$line =~   s/Ｕ/U/g;
	$line =~   s/Ｖ/V/g;
	$line =~   s/Ｗ/W/g;
	$line =~   s/Ｘ/X/g;
	$line =~   s/Ｙ/Y/g;
	$line =~   s/Ｚ/Z/g;
	$line =~   s/ａ/a/g;
	$line =~   s/ｂ/b/g;
	$line =~   s/ｃ/c/g;
	$line =~   s/ｄ/d/g;
	$line =~   s/ｅ/e/g;
	$line =~   s/ｆ/f/g;
	$line =~   s/ｇ/g/g;
	$line =~   s/ｈ/h/g;
	$line =~   s/ｉ/i/g;
	$line =~   s/ｊ/j/g;
	$line =~   s/ｋ/k/g;
	$line =~   s/ｌ/l/g;
	$line =~   s/ｍ/m/g;
	$line =~   s/ｎ/n/g;
	$line =~   s/ｏ/o/g;
	$line =~   s/ｐ/p/g;
	$line =~   s/ｑ/q/g;
	$line =~   s/ｒ/r/g;
	$line =~   s/ｓ/s/g;
	$line =~   s/ｔ/t/g;
	$line =~   s/ｕ/u/g;
	$line =~   s/ｖ/v/g;
	$line =~   s/ｗ/w/g;
	$line =~   s/ｘ/x/g;
	$line =~   s/ｙ/y/g;
	$line =~   s/ｚ/z/g;