in reply to Matching patterns containing a caret
print "$p has $s\n" if 0 == index $s, $p; [download]