Help for this page
my @a_str = split //, $line;
elsif ($count == 1) { ... { $count = 0; ...
open(my $INFILE, "<", $file) or die "can't open file '$file' for reading: $!";