- or download this
$H_count ++ and ...
- or download this
DB<1> $h++ and print "foo";
DB<2> $h++ and print "foo";
foo
- or download this
DB<3> ++$i and print "foo";
foo
- or download this
$line =~ s/\r//g; # removes windows CR characters
$line =~ s/\s+$//; # removes trailing white spaces