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

##</code><code>##

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