Re, #! /usr/bin/perl

use warnings;
use strict;

my $l=<>;

print "$l\n";
my @code = unpack("C*",$l);

foreach(@code){
print "$_ => ${ \(chr($_)) }\n";
}
Le résultat [lamitest@localhost corbeille]$ perl char2code.pl texte.txt
MPLE1<<

16 =>
1 =>
77 => M
80 => P
76 => L
69 => E
49 => 1
60 => <
60 => <
0 =>
1 =>
0 =>
0 =>
0 =>
10 =>

[lamitest@localhost corbeille]$ Tu peux aussi regarder les commande od et hexdump