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