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