!/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);