(my $clean = $dirty) =~ s/\n/<br>/g;