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