DB<127> $str= "a  b  " x 4
 => "a  b  a  b  a  b  a  b  "

  DB<128> $token="a"
 => "a"

  DB<129> print pos($str),": $1\n" while $str =~ /($token)/g
1: a
7: a
13: a
19: a