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