Select Code to Download

index ("@array", $sought) > -1;

@a = qw( food bar baz );
$" = "\0"; 
...
print "Found\n" if index "@a", qq/foo$"/;   # Rightly fails.
print "Found\n" if index "@a", qq/$"bar$"/; # Rightly succeeds...
print "Found\n" if index "@a", qq/$"baz$"/; # Wrongly fails.

print "Found\n" if index qq($"@a$"), qq/$"foo$"/;