#!/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
        }
}

##</code><code>##

Q165HWN0X001
Q165HWN0X002
Q165HWN0X003
E99HEADER|006|001
E99INSSCH|052|
E99POLCOM|1||IIL|62|35119849249024|||||
E99INSFAC2|C00124||||||XAJX0727,YGAX0000,ZAAJ0203,VABA0018,WJZA1800|
G35119849249024
h189SMA2