while( 'the quick brown fox' =~ m/(.)/g) { print "Matched '$1' \@ pos:", pos(); }