Select Code to Download

$string = "a";
print "success 1\n" if "air"   =~ /$string/;
print "success 2\n" if "air"   =~ /\/$string\/[a-z]/;
print "success 3\n" if "/a/ir" =~ /\/$string\/[a-z]/;
print "success 4\n" if "air"   =~ /$string[a-z]/;      # UPDATE