diff --git a/mew.pl b/mew.pl index 1b9faaa..a9a8ee4 100644 --- a/mew.pl +++ b/mew.pl @@ -17,10 +17,9 @@ my $input = join (' ',@ARGV); utf8::decode($input); if ($input =~ /[\x80-\x{ffff}]/o) { - $output = encode('MIME-Q', $input); - $output =~ s/=20/_/g; + print encode('MIME-Q', $input); } else { - $output = decode('MIME-Q', $input); + print decode('MIME-Q', $input); }; -print "$output\n"; +print "\n";