in reply to CGI.pm and Use of uninitialized value in pattern match

Try this: 

$user = $1 if $query->param('user') && $query->param('user') =~ /(\w{3
+,12})/;

[download]
Or, if the value zero is valid: 
$user = $1 if defined( $query->param('user') ) && $query->param('user'
+) =~ /(\w{3,12})/;

[download]
etc. The idea is to first check for defined-ness and then act on that variable if it is.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In Section Seekers of Perl Wisdom