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