$n = 0;
$c = 0;
while ( $line = <> ){
    $n++;
    $c += length($line);
}
print "行数 = ", $n, "\n";
print "文字数 = ", $c, "\n";
