imapsync/paypal_reply/8859_utf8
Nick Bebout d88bf4b46a 1.398
2011-03-12 02:45:04 +00:00

13 lines
282 B
Perl
Executable file

#!/usr/bin/perl -w
# $Id: 8859_utf8,v 1.1 2010/10/01 13:00:09 gilles Exp gilles $
use Unicode::MapUTF8 qw(to_utf8 from_utf8 utf8_supported_charset);
die unless (utf8_supported_charset('ISO-8859-1'));
while (<>) {
print to_utf8({ -string => $_, -charset => 'ISO-8859-1' });
}