unless ( $tax_collection =~ /^[a-zA-Z]+(?:,[a-zA-Z]+)*?$/ ) {
    print "<font color=\"#ff0000\"><i>Incorrect format</i></font>";
    $errors++;
}