Perl idioms

[spacewarp]

I was walking through the mall today, and I happened to spot a store selling Perl buttons! Check 'em out!

FLOGGINGS: { REDO until $morale_improves; }

my $mess;
{  local $mess;
   GOD: bless $mess; }

if ( $day !=~ /sunshine/ ) { $day = $night; }

$whoever->laughs[-1] = "Slowest thinker";

if ( $you_can_read_this ) { $you = "Too Close!!"; }

my $preference = "rich/stupid";

my $inner_child = "twisted little bastard";

no Expect::Spanish::Inquisition;

$hand[1] = "different fingers";

Answers: {
The floggings will continue until morale improves!
God bless this mess.
A day without sunshine is like night.
Whoever laughs last thinks slowest.
If you can read this, you're Too Close!
I'd rather be rich than stupid.
My inner child is a twisted little bastard
Nobody expects the Spanish Inquisition!
On the other hand, there are different fingers.
}

Spacewarp

DISCLAIMER:
Use of this advanced computing technology does not imply an endorsement
of Western industrial civilization.