$H_count ++ and ...

##</code><code>##

  DB<1> $h++ and print "foo";

  DB<2> $h++ and print "foo";
foo

##</code><code>##

  DB<3> ++$i  and print "foo";
foo

##</code><code>##

    $line =~ s/\r//g; # removes windows CR characters 
    $line =~ s/\s+$//; # removes trailing white spaces