DB<107> $_='abcd'x4
 => "abcdabcdabcdabcd"

  DB<108> print pos()-2 while m/ab/g 
04812