Help for this page

Select Code to Download


  1. or download this
    $test=q|\AFZ\BJK \*\AFZ...*\ |;
$new.=$1 while $test=~/([^\\]|\\\*.*?\*\\)/g;
  2. or download this
    $test=q|\AFZ\BJK \*\A\*F*\Z...*\ |;
$comment=qr/\\\*(?:[^\\]*|\\[^*]|(??{$comment}))*?\*\\/;
$new.=$1 while $test=~/([^\\]|$comment)/g;