$p = $s = "\^xxx";
print "$p has $s\n" if $s =~ /$p/; #does not print