sub rev {

$len = length ($phr);
$phr =~ s/\s+(w+)\s+(w+)/$2\s+$1;
print "$phr\n";
}