$p = $s = "^xxx"; print "$p has $s\n" if $s =~ /$p/; #does not print [download]
In reply to Matching patterns containing a caret by stephanm