Select Code to Download

Missing argument in sprintf at a.pl line 19, <DATAFILE> line 1.
Character:              00

my @list = unpack( 'A' x length($string), $string );

my @list = unpack( 'a' x length($string), $string );

my @list = unpack( '(a)*', $string );

while (<DATAFILE>) {
    for my $ch (unpack('(a)*', $_)) {
       printf "Character:\t%s\t%2.2x\n", $ch, ord($ch));
    }
}

while (<DATAFILE>) {
    for my $ord (unpack('C*', $_)) {
       printf "Character:\t%s\t%2.2x\n", chr($ord), $ord);
    }
}