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