Help for this page

Select Code to Download

Select or download this

 ...
 if($fName =~ /^([\[\(].+?[\]\)])/)
...
      for(my $mex=0;$mex<@fNames;$mex++)
      {if($fNames[$mex] =~ /$pref/i){push(@matchIndexes,$mex);}}
    ...