#!/usr/bin/perl

use strict;

my  @lines;

my $file = <quoteout.dat>;

open my $in, '<', $file;
open my $out, '>', "ERR";

@lines = split('', $_);

for(my $i; $i < 9; $i++)
{
        if($line[$i] eq 'E')
        {
                #add one until finds a G or h
        }
}