Select Code to Download

#!/bin/perl -w

...
        $line = join('', split /[ \t]*/);
        print $line;
}

#!/bin/perl -w

...
}

print $line;

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

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