$line += tr/ \t\r\n/c;

##</code><code>##

$line += tr/ \t\r\n//c;

##</code><code>##

$ tr [:space:] -d <ccount.pl | wc
      0       1      69