Select Code to Download

#  Wrong:   $phr =~ s/\s+(w+)\s+(w+)/$2\s+$1;
$phr =~ s/\b(\w+)(\s+)(\w+)\b/$3$2$1/;

use warnings;
use diagnostics;