/(.{16})(.{20})(.{20})(.{1})(.{8})/ 

##</code><code>##

    unpack($PS_T, $_);