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

my $dirty;
sub cleaner($dirty){
    my $clean = ($dirty =~ s/\n/<br>/g;);
    $clean =~ s/\t/ /g;
    return $clean;
}