perl - wcなしでperlを使用してSTDINの文字をカウントするにはどうすればよいですか?

Question

STDIN でユーザーが入力した行数、単語数、および文字数をカウントするスクリプトを作成しようとしています。以下のスクリプトを使用すると、ユーザーがファイルを CLI として入力したときにこれを実行できますが、このコードを STDIN に使用しようとすると、無限ループに陥ります。これを修正するには何を変更すればよいですか?

print "Enter a string to be counted";
my $userInput = <STDIN>;
while ($userInput) {
        $lines++;
        $chars += length ($_);
        $words += scalar(split(/\s+/, $_));
}
printf ("%5d %5d %5d %10s", $lines, $words, $chars, $fileName);