#! /usr/bin/perl -w
#
# mew.pl
#
# converts from and to MIME encoded words
#
#
# Copyright (c) 2023 Thomas Hochstein <thh@thh.name>

use utf8;
use Encode;
use MIME::QuotedPrint;
use MIME::Base64;

my $input = join (' ',@ARGV);

if ($input =~ /[\x80-\x{ffff}]/o) {
   print encode('MIME-Q', $input);
} else {
   print decode('MIME-Q', $input); 
};

print "\n";