RosettaCodeData/Task/Reverse-words-in-a-string/Perl/reverse-words-in-a-string.pl
2015-02-20 09:02:09 -05:00

12 lines
285 B
Perl

print join(" ", reverse split), "\n" for <DATA>;
__DATA__
---------- Ice and Fire ------------
fire, in end will world the say Some
ice. in say Some
desire of tasted I've what From
fire. favor who those with hold I
... elided paragraph last ...
Frost Robert -----------------------