#!/opt/bin/perl -w

my %distr;
my $i = -1;
my $c = 1;					# line 5

# sysread Filehandle, Scalar, Length, Offset

open DF, "<Pi-00009" or die "File, DATA, is missing: $!";
print "# Before_Trim\tAfter_Trim\n";		# line 10
print "# Len\tdigit\tLen\tdigit\n";
# print "\tOffset\tLength\tScalar\n";

while ($i<=7){
	my $digit;				# line 15
	sysread DF, $digit, $c, ++$i;
	print "# ",length($digit),"\t$digit\t";
	$_ = $digit;
	s/(\d)/$1/;
	$digit = $_;				# line 20
	print length($digit),"\t$digit\n";
	if ($digit =~ /[\d]/){
		#	print "\t",$i,"\t",$c,"\t",$digit,"\n";
		$distr{$digit} += 1;
	};					# line 25
}
close DF;

__OUTPUT__
# Before_Trim   After_Tri;			# line 30
# Len   digit   Len     digit
# 1     3       1       3
# 2     .       2       .
# 3     1       3       1
# 4     4       4       4
# 5     1       5       1
# 6     5       6       5
# 7             7
# 8     9       8       9
# 9     2       9       2