Problemas com repasse de informaçoes com perl

Tenho um doc de texto com algumas determinadas informações;
Dentro dele a linha
ip,namehost,login,senha,ssh

Para capturar as informações estou usando
echo "Digite o login de rede: ";
read d_login ;
stty -echo;
echo "Digite a Senha: ";
read d_senha;
stty echo;

quando executo echo $d_senha ele me mostra a senha normal ex: #senh@

meu problema esta ao executar a linha com o perl;

perl -i -pe "s/login/$d_login/g; s/senha/$d_senha/g" $doc_01;

o retorno aparece
ip,namehost,user,#senh,ssh <- ignorando o "@" como;

conseguem me ajudar;

Grato;