DB<1>  print "1.00" =~ m/^(1|2|3)$/ ? "JA Zahl" : "Nein  String";
Nein  String
  DB<2>  print 1.00 =~ m/^(1|2|3)$/ ? "JA Zahl" : "Nein  String";
JA Zahl
  DB<3>  $a="1.00"; print $a =~ m/^(1|2|3)$/ ? "JA Zahl" : "Nein  String";
Nein  String
  DB<4>  $a=1.00; print $a =~ m/^(1|2|3)$/ ? "JA Zahl" : "Nein  String";
JA Zahl
  DB<5>  $a="1.00"; $a+=0; print $a =~ m/^(1|2|3)$/ ? "JA Zahl" : "Nein  String";
JA Zahl