local( $/ )= undef;
    @records= split /(?=($RID))/, <FIN>;