Re,
Non, ce n'est pas bien. Perl c'est bien :-DDDD
Je n'ai pas moyen de tester, mais ça doit être quelque chose comme ça
perl -ne 'print $1 if /^.{111}(.)/' fichier
perl -ne 'print substr($_,111,1)' fichier
perl -ne '($x)=unpack("x111 A1",$_);print "$x\n";' fichier--
106485010510997108