Select Code to Download

my @clean = map clean_html($_), @dirty;

sub clean_html {
    my ($html) = @_;
...
    $clean =~ s/^\s+|\s+$//g;
    return $clean;
}