#!/usr/bin/perl
use warnings;

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

##</code><code>##

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