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