perl -we'$_ = qr{$_}'
Use of uninitialized value in regexp compilation at -e line 1.