open(MYINPUTFIL3, <DATA>);
    MYINPUTFIL3:   				
my $spool1 = 0;
my @a;

while (<MYINPUTFIL3>) {
    if (/start line:/i) {
        
$spool1 = 1;
        next;
    }
    elsif (/End Line:/i) {
        print map { "$_" } @a;
        $SYS=$_;
	$SYS =~ s/\r|\n//g;
       $SYS=~ s/^\s+//;
       $SYS=~ s/\s+$//;
       $SYS1 = $SYS;
       $SYS2 = $SYS;
       $SYS2 = s/[^a-zA-Z]*//g;
       $SYS1 =~ s/[^0-9.]*//g;
@a = ();
    }
    if ($spool1) {
        push (@a, $SYS);
     	  $SYS=$_;                      
$SYS =~ s/\r|\n//g;
$SYS=~ s/^\s+//;
$SYS=~ s/\s+$//;
$SYS1 = $SYS;
SYS2 = $SYS;
$SYS2 = s/[^a-zA-Z]*//g;
$SYS1 =~ s/[^0-9.]*//g;
last;
   }
                                                                     
}				
close DATA;