sub cleaner {
        $_[0] =~ s/\n/<br>/g;;
        $_[0] =~ s/\t/ /g;
    }

##</code><code>##

    cleaner( $dirty );

##</code><code>##

    sub cleaner {
        local $_ = shift;
        s/\n/<br>/g;;
        s/\t/ /g;
        $_
    }

##</code><code>##

    $clean = cleaner( $dirty );