unless(not $data_1 =~ m/$regex/gismx || not $data_2 =~ m/$regex/gismx ){
 print "RICHTIG\n";
}else{
 print "FALSCH\n";
}