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

$details = cleaner($details);