$ perl -Mwarnings=FATAL,all -E " say q/hi/; shift =~ undef ; say q/bye/ " hi Use of uninitialized value in regexp compilation at -e line 1.