Select Code to Download

#!/usr/bin/perl   
use strict;   
...
}
print "Unused portion of data file: ", substr( $string, $idx );

record type: $
 data: 1234
...
 record type: $
 data: 
?:"