in reply to How do I reverse the order of the first and last word of a string?

$ perl -le'
    $_ = "This is my program";
    print reverse /^(\S+)(.*?)(\S+)$/
'
program is my This

[download]
  • Comment on Re: How do I reverse the order of the first and last word of a string?
  • Download Code

In Section Seekers of Perl Wisdom