sub foo { $y =~ /$x/o; }