>perl -we"my $x; /$x/"
Use of uninitialized value in regexp compilation at -e line 1.
Use of uninitialized value in pattern match (m//) at -e line 1.