my      ($RequestYear,$RequestMonth,$RequestDay,$RequestSequence,$RecordType,$RecordSequence,$Record)        
=unpack("A2           A2            A2          A4               A2          A2              A1486",$_) ;