Подсчет строк и слов...

[DartSidius]

Попалось тестовое задание...на этот вопрос не могу дать ответ...

Что неправильно в программе, подсчитывающей число строк и слов в файле? (аналог стандартной программы wc, словами считаем последовательности непробельных символов, т.е. \\S) Что можно улучшить?

open F, $ARGV[0] || die $!;
my @lines = ;
my @words = map {split /\\s/} @lines;
printf "%8d %8d\\n", scalar(@lines), scalar(@words); close(F);

Может есть у кого предположения?

[arto]

1. open F, $ARGV[0] || die $!;
2. my @lines = ;
3. my @words = map {split /\\s/} @lines;