Sure just use a s/// regex to remove the <br> tags.

my $text =<<TEXT;
foo<br>
bar<br>
baz<br>
TEXT

print $text; # to browser

$text =~ s/<br>//g;

print $text; # to email
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print