Note that the special variable $_ does not have to be specified in pattern matching:

#!/usr/bin/perl
use warnings;

undef $_;
$x = 'abcd';
print 'yes' if $x = /a/;
[download]

The above code gives no output and the following warning:

Use of uninitialized value $_ in pattern match (m//) at ./1.pl line 6.
[download]