summaryrefslogtreecommitdiffstats
path: root/fixsubject
blob: 9831d260fc1405ed14fae17da6e11b004397d60f (plain)
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use utf8;
use Encode;

binmode(STDOUT,':utf8');
my $utf8 = "";
while (<STDIN>){
    $utf8 = $utf8 . Encode::decode('MIME-Header', $_);
}
print $utf8;