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

$details = cleaner($details);