$s = "^xxx";
$p = '\^xxx';  # or "\\^xxx"
...