$string="abc de fgh ijkl";

while($string =~ /([a-z]+ [a-z]+)/g)
{
    print "$1 $1\n";
}

##</code><code>##

abc de
fgh ijkl

##</code><code>##

abc de
de fgh
fgh ijkl

##</code><code>##

$string =~ /([a-z]+) ([a-z]+)\G(?: [a-z])*?/g

##</code><code>##

my @words =split $string;
for($i=0;$i<$#words;$i++)
{
   print "$words[$i] $words[$i+1]\n";
}