$x =~ /$y/;

##</code><code>##

my $match = $x =~ /$y/;
printf "x=%s, y=%s\n", $x, $y unless $match;