probe.pl

probl.pl

pi@startx ~ $ cat probe.pl 
#!/usr/bin/perl
$file_name = "tex.txt";
open(TEXT, $file_name);
$out_string = <TEXT>;
close (TEXT);
@ascii_character_numbers = unpack("C*", "$out_string");

print "@ascii_character_numbers\n";

#exit;