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