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