$sub = $adr; $sub =~ s/@/\@/;