#! /usr/bin/perl

##  this perl pgm selects SRUS52 KWBC NMCRRAst (where st is a state abbrev)
##  bulletins from the shef_other file

undef $/ ;
$/ = "\x0d\x0a\x03" ;    # redefine the end of a logical record

while (<>) 
  { $numrec++;
#   $x = index(substr($_,0,99),"KIND") ;
#   unless ($x == -1)
#   if (/SRUS23 KC/)
#   unless (/SXUS4/)
    if (/NMCRRA/)
      { print $_ ; }
     
  }
#rint "\n numrec in = ", $numrec ;