задача регулярного выражения Perl 2

Question

У меня есть список команд для разбора ...

вроде:

> ls -lart 
> ls 
> ls /etc/passwd 
> ping 
> ping 127.0.0.1
> PING
> LS

Мне нужно посчитать, сколько раз ls и ping были выполнены, я не должен считатьвариант в верхнем регистре, такой как LS и PING, но я должен считать запуск команды с параметром, таким как "ls -lart"

Как проверить, содержит ли строка точное слово ls или ping или что-то еще?

С регулярным выражением !!!

Спасибо,

Answer 1

my $count = 0;

while (<STDIN>) {
  m/^\s*(ls|ping).*$/;
  $count++ if $1;
}