Help for this page

Select Code to Download


  1. or download this
    $p = $s = "^xxx";
print "$p has $s\n" if $s =~ /\Q$p/; #does print