1 #
2 # Author: Makarius
3 #
4 # recode.pl - recode utf8 for ML
5 #
6
7 for (@ARGV) {
8 utf8::upgrade($_);
9 s/([\x80-\xff])/\\${\(ord($1))}/g;
10 print $_;
11 }