Help for this page

Select Code to Download


  1. or download this
        qr/([^$wc]+)/o,
    qr/^$ignoref([$wc]+?)$ignorel$/io,
    qr/^$match_string$/,
  2. or download this
    use strict;
my @wordchars = ("a".."z","#*");
...
}
print "search terms are : ";
foreach (@words) {print "$_ ";}
  3. or download this
    substr (\$_,0,1)=~ s/[$ignorefirst]//;