or download this
my $message = q|testing a reply *Do it as *html=C2=
=A0I guess Andy Newby=C2=A0 *Email:*=C2=A0 =C2=A0=C2=A0 andy@xx.co.u
+k =C2=A0 * WWW: =C2=A0 =C2=A0=C2=A0 * http://www.xx.co.=
uk =C2=A0 Mobile:=C2=A0* =
...
my $test = decode_mimewords($message);
print "FOO: $test \n";