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

##</code><code>##

Matched 't' @ pos:Use of uninitialized value in print at C:\test\temp.pl line 1.
Matched 'h' @ pos:Use of uninitialized value in print at C:\test\temp.pl line 1.
Matched 'e' @ pos:Use of uninitialized value in print at C:\test\temp.pl line 1.
...