Select Code to Download

Customer ID: none
VT : 002/89
...

Customer ID: Yes
VT: 003/56

VT: 001/89
VT: 003/56

my $in_file = 'check.doc';
open my $in_fh, '<', $in_file or die "Could not open file $in_file: $!
...
}
close $in_fh or die "Could not close file $in_file: $!";
close $out_fh or die "Could not close file $out_file: $!";