Если есть команда, которая получает то, что вы хотите, почему бы просто не запустить эту команду?
Вы можете использовать backticks или qx // в Perl, чтобы получить вывод команды
Например:
my $output = `command arg1 arg2 ...`;
Или, если вы хотите массив строк:
my @lines = `command arg1 arg2 ...`;
Тогда вы можете использовать обычные средства Perl для сканирования этих выходных данных для интересующих вас паттернов.in.
Кроме того, ваша команда выглядит так, как будто это для Windows - это правда?Если это так, вы должны добавить тег Windows.