http://qs1969.pair.com?node_id=191814


in reply to Ogden Nash, 1902-1971

# The Ant # by Ogden Nash # The ant has made himself illustrious # Through constant industry industrious # So what? # Would you be calm and placid # If you were full of formic acid? sub ant { bless \my $self } sub make { $self = shift; use constant INDUSTRY => 'industrious'; $$self = INDUSTRY; $$self =~ s/nd/ll/; bless $self; } $ant = ant(); $ant->make(); if (0 or 1) { $you = ($you=~/^(formic acid)+$/ and int rand 2) ? 'calm and placi +d' : ''; }

Update: Wow. Thanks a lot VSarkiss! I've never realized just how fun perl poetry actually was. I'm hooked now. An annotated version. . .

# The Ant # by Ogden Nash # The ant has made himself illustrious # Through constant industry industrious # So what? # Would you be calm and placid # If you were full of formic acid? sub ant { bless \my $self } # Some setup. sub make { $self = shift; # through constant industry industrious use constant INDUSTRY => 'industrious'; $$self = INDUSTRY; $$self =~ s/nd/ll/; # industrious is now illustrious bless $self; } $ant = ant(); # More setup. (We need an ant.) $ant->make(); # The Ant has made himself illustrious [see make()] if (0 or 1) { # So What? # would you be 'calm and placid' if you were full of # formic acid? (The rand leaves it a question.) $you = ($you=~/^(formic acid)+$/ and int rand 2) ? 'calm and placi +d' : ''; }
-sauoq
"My two cents aren't worth a dime.";