po/strip-bad-utf8.pl

   1 #! /usr/bin/perl
   2 #
   3 # Strip off utf8 encoding that was spuriously applied to a string of
   4 # 8-bit bytes.  Note: This may be totally bogus.  If you get any "Wide
   5 # character in print" messages, then the input was not a string of
   6 # 8-bit bytes that had utf8 encoding applied to it -- the message
   7 # means that utf8 decoding produced some characters > 0xff.
   8
   9 binmode STDIN, ':encoding(UTF-8)';
  10 binmode STDOUT, ':raw';
  11
  12 while (<>) {
  13     print $_;
  14 }