my $data1 = unpack 'n', substr( $str, 2,2 );
my $data2 = unpack 'n', substr( $str, 4,2 );