in reply to Re: Pearls (not really) of Perl programmingin thread Pearls (not really) of Perl programming
It could have been worse :-)
open F, $cgi->param('file');
$dbh->do( "SELECT * FROM blah WHERE foo LIKE %" . $cgi->param('search'
+) .'%' );
Conway's Game of Life
Perl regular expressions
My Magic 8-Ball™
Results (193 votes). Check out past polls.