C:\>perl -e "$,=' ';print reverse qw/ one two three four /;" four three two one C:\>