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


in reply to Re^4: bug or curly bracket hell?
in thread bug or curly bracket hell?

if ( ($line =~ /^VARDB_database/) && ($CLIDB_database < 1) ) {$VARDB_database = $line; my $VARDB_database =~ s/.*=//gi;}
With strict enabled you can't do certain things that make no sense, like declaring a variable with "my" after you already used that variable.