Select Code to Download

cleaner(\$details);   AND   $details = cleaner($details);

...
    $clean =~ s/\t/ /g;
    return $clean;
}

sub cleaner {
    my($dirty) = @_;
    ...
}

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

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

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

sub cleaner {
    (my $clean = $_[0]) =~ s/\n/<br>/g;
...
}

$details = cleaner($details);

sub cleaner {
    local $_ = shift;
...
}

$details = cleaner($details);