qr/(foo).*(foo)(?{ $_ =~ s+foo+bar+g })/