Select Code to Download

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

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