if($data2check =~ m/[0-9$user_var]/g) { print "String ist sauber"; } else { print "String enthaelt nicht erlaubte Zeichen"; }