Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Isn't this the truth?

by atcroft (Monsignor)
on Mar 29, 2004 at 07:56 UTC ( #340536=poem: print w/replies, xml ) Need Help??

A harsh lesson, so your discression is advised.

#!/usr/bin/perl # # Isn't this the truth? # # Being a slack, not verifying things no strict; no warnings; my $action = 'assume something important'; my $outcome = $action . ' as applied'; # And at the worst possible time # You learn what $outcome =~ s/^((.{3})(.)(.{2})).+/\u$1 made an/; # the $outcome of $outcome =~ s/^((.{3})(.)(.{2}).+)/$1 \U$2\E out of/; # your $action $outcome =~ s/^((.{3})(.)(.{2}).+)/$1 \U$3\E and \U$4\E/; # is... print $outcome, "\n";

Replies are listed 'Best First'.
Re: Isn't this the truth?
by CountZero (Bishop) on Mar 29, 2004 at 18:45 UTC
    It sure is!

    Really, this should be in a category all of its own: Obfuscated Poetry.


    "If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://340536]
Approved by Limbic~Region
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (5)
As of 2017-05-29 20:08 GMT
Find Nodes?
    Voting Booth?