#! /usr/bin/perl -w

#Read between lines 40 - 112 from *.in, cut the lines up using pipe delimitation.
use strict;

my @files = <*.in>;
for my $file (@files)
{
	open(my $read, '<', $file) or die "Couldn't open: $!";
	open(my $write, '>', "$file.read") or die "Couldn't open: $!";
	
	my $lines;
	my($record, $code, $date, $calpercent$, $vehprn, $vehreg, $insratenum, $insratetxt) 
	
	print $write "Record\tCode\tDate\tCalculated Percentage\tVehicle PRN\tVehicle Registration\tInsurer Rating Number\tInsurer Rating Text\n";
	
	while(<$read>)
	{
		#@lines = split('', $_);
		if(/99HEADER/../99TERMIN/)
		{
			chomp;
			($record, $code, $date, $calpercent$, $vehprn, $vehreg, $insratenum, $insratetxt) = split(',');
			print $write "$record\t$code\t$date\t$calpercent$\t$vehprn\t$vehreg\t$insratenum\t$insratetxt"
		}
	}	

}