print "$p has $s\n" if 0 == index $s, $p; [download]
In reply to Re: Matching patterns containing a caret by jwkrahn in thread Matching patterns containing a caret by stephanm