Help for this page

Select Code to Download

Select or download this

while ( <FILE> ) {
   print if ( /^(1|3|4)/ );
}

Select or download this

while ( <FILE> ) {
   if ( /^(1|3|4) perlmonks\(([^\)])\)/ ) {
      print "$2\n";
   }
}