johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -E '
my $text = q{abcd};
say qq{>$text<};
$text = pack q{A10}, $text;
say qq{>$text<};'
>abcd<
>abcd      <
johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -E '
my $text = q{abcd};
say qq{>$text<};
$text = pack q{A2}, $text;
say qq{>$text<};'
>abcd<
>ab<