#!/bin/perl -w

while (<>) {
        chomp;
        $line = join('', split /[ \t]*/);
        print $line;
}

##</code><code>##

#!/bin/perl -w

while (<>) {
        chomp;
        $line += split /[ \t]*/;
}

print $line;

##</code><code>##

$ ./ccount.pl <ccount.pl | wc
      0       1      69

##</code><code>##

$ ./ccount2.pl <ccount.pl
Use of implicit split to @_ is deprecated at ./ccount2.pl line 5.
72