Select Code to Download

open my $ifh, '<', $infile or die "$infile: $!";
my $data = do { local $/; <$ifh> };
close $ifh;

use warnings;
use strict;
...
    close $ifh;
}
close $ofh;

perl -nle '/^(\d{3}),-->(\d{3}),$/||die;defined$x&&print"$x,-->$2,";$x
+=$1' SBNUM_*.txt >v2test.txt