Symbols/sym.pl

   1
   2 while(<>) {
   3         for(split('')) {
   4                 $n = ord($_);
   5                 if ($n & 0x80) {
   6                         printf("\\%.3o", $n);
   7                 } else {
   8                         print $_;
   9                 }
  10         }
  11 }