my $testData = <<'_EOGTESTA_';
RECORD
#input_id 1210758171x001_0013
#output_id 
#input_type PTC
#output_type PTC
#addkey 
#source_id 01
#filename TTFILE01-0001-20080101000000
F ptc_record_length 00B6
F ptc_record_type
B firstBlock 
F ptc_charging_end_time 20080604093721
F ptc_called_msrn_ton FF
.
F ptc_term_mcz_duration 060000
F ptc_term_mcz_change_direction 
.
_EOGTESTA_