my ( $type, $nmr ) = unpack 'A A*', $arg;