my $regex = 'y/;print time()';
print "ja\n" if "xyz" =~ m/x${regex}z/;