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.uk =C2=A0 * WWW: =C2=A0 =C2=A0=C2=A0 * http://www.xx.co.=
  uk =C2=A0 Mobile:=C2=A0* =
  =C2=A002269 201 576 =C2=A0=C2=A0
  |;

  use MIME::Words qw(:all);

  my $test = decode_mimewords($message);

  print "FOO: $test \n";