sub foo { $mystring }

while (foo =~ m/blah../g) {