Select Code to Download

#!/usr/bin/perl -l

...
$_="123";    /./g; undef pos; print "#6: ", /\G./g;
$_="123";    /./g; pos = 2;   print "#7: ",   /./g;
$_="123";    /./g; pos = 2;   print "#8: ", /\G./g;

#1: 123
#2: 23
...
#6: 123
#7: 3
#8: 3