if($text !~ /^[a-z0-9,]*$/i) {
    die "bad characters\n";
}