use re 'debug';
$s = 'xfx';
while ($s =~ / (f*?) /gx) {