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


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

Or without the extended regex features of 5.10 (basically moritz's approach, but with only one capture):
>perl -wMstrict -le "my $text = q{hello to 'all' this perl-monk's friends}; my $wchar = qr{ [A-Za-z'-] }xms; my $word = qr{ (?<! $wchar) $wchar+ }xms; while ($text =~ m{ (?= ($word \s+ $word)) }xmsg) { print $1 } " hello to to 'all' 'all' this this perl-monk's perl-monk's friends