#!/bin/perl -w
my $line = 0
while (<>) {
        chomp;
        $line += tr/ \t/./c;
}

print $line, "\n";

##</code><code>##

#!/bin/perl -w
my $line = 0
while (<>) {
        $line += tr/ \t\r\n/c;
}

print $line, "\n";