sub decode { return join '', map { chr( hex ) } unpack( 'A4' x (length($_[0]) / 4), $_[0] ) }