$TEMP = "\@0 A1 \@1 A12";
  $string = "AAAA";
  $res = pack($TEMP, "V", $string);
  print "$res\n";

##</code><code>##

  pack($TEMP, "V", sprintf("%12s", "$string"));