Re^4: How do I reverse the order of the first and last word of a string?

You may want to fix that to properly handle punctuation and capitalization:

$_ = 'This is the word.';
$_ =~ s[(^\w+)(\s.*\s)(\w+)([[:punct:]]?)$][\u$3$2\l$1$4];
print
[download]

--
print "Just Another Perl Adept\n";

Comment on Re^4: How do I reverse the order of the first and last word of a string? Download Code

Replies are listed 'Best First'.
Re^5: How do I reverse the order of the first and last word of a string? by BrowserUk (Patriarch) on Mar 11, 2007 at 08:00 UTC
Nope. Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. "Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."	[reply]