Select Code to Download

#!/usr/bin/perl

...
    print $string[$i], " ";
  }
}

sub rev {

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

sub initargs {

$phr;
}