Procurando converter o seguinte comando unix no perl?
grep TMP_RULE $i | grep -oP 'TMP_RULE\s*=\s*"[^"]+' | awk -F " " '{print $3}' | sed -e 's/\"//' | sort -u >>x.list
O código acima me retorna a lista de TMP_RULE no diretório inteiro ($ i é na verdade uma variável de loop (para i ( cat tmp_list ))).
Por favor, deixe-me saber se há alguma dúvida.