$_ = "Hallo";
print "1: $&\n" if /[A-Z]/g; # Ausgabe: 1: H
print "2: $&\n" if /[A-Z]/g; # Keine Ausgabe
print "3: $&\n" if /[A-Z]/g; # Ausgabe: 3: H