$_ = "glad guy sad gal\n" ; while( / (?{print "$`\n"}) (\b.a.\b|..l) (?{print "\nmatch: $&\n\n"}) /gx ){}; __END__ g gl gla glad glad glad g glad gu glad guy glad guy match: sad glad guy sad glad guy sad match: gal