my $text = "hello to all the perl monks";
while ($text =~ /\b([A-Za-z'\-]+ [A-Za-z'\-]+)\b/g) {
    print "$1\n";
}#while

##</code><code>##

hello to
to all
all the
the perl
perl monks

##</code><code>##

hello to
all the
perl monks