while( my $num = <DATA> ) {
        chomp($num);
        ## print "num=[$num]\n";
        if ( $num =~ /^[1-9]\d*$/ ) {
                $ctrP++;
        }