while($l = ) { $s = ""; foreach $i (reverse(split(/\s+/, $l))) { $s = "$s$i "; } chop($s); print "$s\n"; }