http://www.perlmonks.org?node_id=63450

On inspecting an unnamed freeware Perl discussion board package of dubious quality.
Roses are red,
Violets are blue,
Taint check your scripts,
0r 1 w1ll 0wn u.

Roses are red,
Tulips are fine,
Eval that param,
And u'r b0x w1ll b3 m1n3.

Roses are funny,
But this code is a hoot.
open() that $string,
And z00n 1'l h4v3 r00t!