perl -wle 'my $a; $a =~ m/foo/'
Use of uninitialized value in pattern match (m//) at -e line 1.