#!/usr/bin/perl
use warnings;

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