Репликация команды v4l2loopback в OSX Big Sur?

С вашей командой perlвы всегда печатаете строку, потому что у вас есть опция -p. Часть match ничего не делает.

Вы хотите -nи распечатайте соответствующую часть:

ls -1 *9000.jpg \
| perl -lne 'print $1 if /^(.+)(?=_.+_.+)/'

Поскольку в именах файлов могут быть новые строки, вы должны изменить это, чтобы читать нулевые -имена файлов с разделителями, хотя в вашем случае это может не понадобиться:

printf '%s\0' *9000.jpg \
| perl -lne 'INIT{ $/ = "\0"}; print $1 if /^(.+)(?=_.+_.+)/'

В качестве альтернативы можно прочитать имена файлов в цикле for -, после чего вы можете использовать только расширение параметров оболочки:

for f in *9000.jpg; do printf '%s\n' "${f%_*_*}"; done

Возможно, это лучше подходит для вашей задачи. (=> "Не используйте инструменты редактирования текста на основе строки --для имен файлов." @Кусалананда)