с помощью команды bash в perl

У меня короткий код на bash

cat example.txt | grep mail | awk -F, '{print $1}' | awk -F= '{print $2}'

Я хочу использовать его в сценарии perl и построчно помещать его вывод в массив. Я пробовал это, но не сработало

@array = system('cat /path/example.txt | grep mail | awk -F, {print $1} | awk -F= {print $2}');

Спасибо за помощь ...