http://www.perlmonks.org?node_id=763890


in reply to Regexp matching words, not doing what I expect

$_ = "hello to all the perl monks"; /\b(([A-Za-z'\-]+) (?-1))\b(?{ say $1 })(*FAIL)/; __END__ hello to to all all the the perl perl monks