#! /usr/bin/perl -w

use strict;

my @files = <*.in>;
for my $file (@files)
{
	open my $handle, '<', $file;
	chomp(my @lines = <$handle>);
	close $handle;
	
	open my $write, '>', "$file.sep";

	my @enr_data = grep {/^99/} @lines;
	
	s/99/\n99/g for (@enr_data);
	
	close($handle);
}