Help for this page

Select Code to Download


  1. or download this
      if (substr($acct_trtmt_hsty,1,1) =~ m/([789])/) {
    print "the number is: " . $1;
  }
  2. or download this
      my @numbers = $acct_trtmt_hsty =~ m/'([789])'/g;
  print join ":", @numbers;
  3. or download this
    $acct_trtmt_hsty, =~ s/(')([789])(')/$1 . ($2-4) . $3/eg;   # note: ma
+ny different ways to write this regex