use strict;
use warnings;


my $file = '782426.pl';
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 = $2;
        }
        $csv .= ",$2";
        print "$csv\n" if($1 eq 'SALES CST');
}

close($fh);