$_ = "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