G0001,G0001,2010,GMC,ACADIA,/,33410.00
G0002,G0002,2010,GMC,ACADIA,/,32615.00
G0003,G0003,2010,GMC,ACADIA,/,33010.00
G0004,G0004,2010,GMC,ACADIA,/,32615.00
G0005,G0005,2010,GMC,ACADIA,/,33410.00

##</code><code>##

!/usr/bin/perl

use strict;
use warnings;


my $file = 'gwfnvi.txt';
open(my $fh, '<', $file) or die "$file: $!";

my $csv;
foreach my $line (<$fh>) {
        chomp($line);
        next unless($line =~ m/^([^\.]+)\.+\s+(.*)/);
        if($1 eq 'STOCK NO') {
                $csv = $3;
       }
        $csv .= ",\"$2\"";
        my $str2 = substr($csv, 1);
        print "$str2\n" if($1 eq 'LST PRICE');
}

close($fh);