$_ = pack 'A'.$len, $_;