Select Code to Download

foreach my $in ($message, $name, $mail)
{
...
    # and of course you can do your subs here to:
     $in =~ s/\(b\)/<b>/ig;  # ...
}