Ajuda com sintaxe [RESOLVIDO]

Quero fazer o seguinte codigo funcionar.

if (&Adm($nome) && $msg =~ /^$meunome (.*)/) {
&shell("$path","$1");

Acho que dá pra entender o que eu quero. Quando eu digitar por exemplo:

Vinicius ls
Vai listar os arquivos do Vinicius


O problema tá aqui:

/^$meunome (.*)/

Bom dia cara,

Desculpe mas... não entendi a que se destina o código que você postou e nem qual a duvida.
Pelo que você publicou entendi que você quer rodar comandos do terminal sobre um determinado "usuário" (usuário do sistema?), isso é, criar um syscall para ser executado nos diretórios dos clientes.

Se pudesse explicar melhor o contexto ou publicar uma parcela maior de código ficaria mais simples.

Grande abraço,

Você não precisa do prefixo "&" quando vai usar funções, a não ser que o contexto o obrigue (como no caso de ponteiros de função ou ao usar uma função que não recebe argumentos para gerar a chave de um hash).

Você mesmo chegou a dizer onde estava o problema, mas não disse qual era ele. Não estou com Perl aqui no celular, mas não vejo erro algum no que você fez (i.e. do ponto de vista sintático; mas é temerário jogar "$1" para um shell sem antes criticar o que ali vai).

Valeu pra quem me ajudou ae, mas meu colega me ajudou e eu consegui resolver. Mudei algumas coisas e acabou funcionando aqui. Valeu.