#!/usr/bin/perl -w
use strict # okay! okay! I give! uncle! (even though I still don't know what it does yet! :) 

initargs(); # thanks for teaching me the more modern perl convention. Lemay's book is a bit dated. 

print "\nPlease enter a phrase: ";
chomp ($phr = <STDIN>);
rev($phr);
print "\n\nDone.";

sub rev {

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

sub initargs {

$phr;
}