$lcou = 0;
while(defined($linein = <TXTIN>)) {
	$lcou += 1;
	@chr_array = split(//, $linein);
	$linein_tot = scalar(@chr_array);
	print "\nline count <$lcou> total chars <$linein_tot> line <$linein>\n";
	for($j = 0; $j < $linein_tot; $j ++) {
		$chr = $chr_array[$j];
		$chr_num = ord($chr);
		print "pos <$j> ascii <$chr_num> character <$chr>\n";
	}
}