http://twitter.com/qoozy/status/12865639865 http://twitter.com/qoozy/status/12865735856

file.txt

。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン゛゜
｡｢｣､･ｦｧｨｩｪｫｬｭｮｯｰｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝﾞﾟ
ヴガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポ
ｳﾞｶﾞｷﾞｸﾞｹﾞｺﾞｻﾞｼﾞｽﾞｾﾞｿﾞﾀﾞﾁﾞﾂﾞﾃﾞﾄﾞﾊﾞﾋﾞﾌﾞﾍﾞﾎﾞﾊﾟﾋﾟﾌﾟﾍﾟﾎﾟ
ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
０１２３４５６７８９
0123456789
　！”＃＄％＆’（）＊＋，－．／：；＜＝＞？＠［￥］＾＿‘｛｜｝～
 !"#$%&'()*+,-./:;<=>?@[\]^_`{|}~
をぁぃぅぇぉゃゅょっあいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわんゐゑ
がぎぐげござじずぜぞだぢづでどばびぶべぼぱぴぷぺぽ
う゛
ヲァィゥェォャュョッアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワンヰヱ
ガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポ
ヴ
ｦｧｨｩｪｫｬｭｮｯｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝ
ｶﾞｷﾞｸﾞｹﾞｺﾞｻﾞｼﾞｽﾞｾﾞｿﾞﾀﾞﾁﾞﾂﾞﾃﾞﾄﾞﾊﾞﾋﾞﾌﾞﾍﾞﾎﾞﾊﾟﾋﾟﾌﾟﾍﾟﾎﾟ

file.txt.out

。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン ゙ ゚
。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン
ヴガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポ
ヴガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポ
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
0123456789
0123456789
 !”#$%&’()*+,-./:;<=>?@[¥]^_‘{|}~
 !"#$%&'()*+,-./:;<=>?@[\]^_`{|}~
をぁぃぅぇぉゃゅょっあいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわんゐゑ
がぎぐげござじずぜぞだぢづでどばびぶべぼぱぴぷぺぽ
う ゙
ヲァィゥェォャュョッアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワンヰヱ
ガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポ
ヴ
ヲァィゥェォャュョッアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン
ガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポ

script.pl

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use Encode;
use Unicode::Normalize qw/NFKC/;

my $infile = shift @ARGV;
my $text;

open my $fh1, '<', $infile;
while (<$fh1>) {
    $text .= decode_utf8($_);
}
close $fh1;

$text = NFKC $text;

open my $fh2, '>', "$infile.out";
print {$fh2} encode_utf8($text);
close $fh2;

__END__