Help for this page
#!/usr/bin/perl use warnings; ... undef $_; $x = 'abcd'; print 'yes' if $x = /a/;
Use of uninitialized value $_ in pattern match (m//) at ./1.pl line 6.