Help for this page

Select Code to Download


  1. or download this
    $string="He0Hello~~He2World~~";

while ($string=~m/He\d(\w+)~~/g) {
  print "$1\n";
}
  2. or download this
    $string=~m/He\d([^~]+)~~/g
  3. or download this
    $string=~m/He\d(.+?)~~/g