Help for this page

Select Code to Download


  1. or download this
    $pat1="field";
$pat2="f.i.e.l.d";
...
while($str =~ m/($pat1|$pat2|$pat3)/ig){
   print "Found '$1' from pattern ??\n";
}
  2. or download this
    Found 'The' from pattern ??
Found 'field' from pattern ??
Found 'f1i2e3l4d' from pattern ??
  3. or download this
    Found 'The' from pattern 'the'
Found 'field' from pattern 'field'
Found 'f1i2e3l4d' from pattern 'f.i.e.l.d'