#!/usr/bin/env perl 
use strict;
use warnings;
use MIME::QuotedPrint;

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
  |;

my $test = decode_qp($message);
print "FOO: $test \n";