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

print $text; # to browser

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

print $text; # to email