Select Code to Download

#!perl -l
$message_body="http://www.foo.com/bar.pl?aid=3D2744&bid=3D&cn=3DOM=
...
$message_body =~ s/=3D/=/g;
$message_body =~ s/>/>\n/g;
print $message_body;