Select Code to Download

#!/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.