$_ = "Hallo!";
m/[A-Z]/g;
print pos, "\n";

m/[A-Z]/g;
print "Von vorne", "\n" if not defined pos;