Help for this page

Select Code to Download


  1. or download this
    print "match\n" if (/(\d{1,3})%/, $1>91);
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
__END__

'its a tub of lard' matches
  3. or download this
    if (/(\d{1,3})%/ && $1>91);