in reply to how to substitute '@' in line

I'm not at my computer with Perl installed, but I think you could use the substitution operator with non-interpolating delimiters.

s'@'\@'

In Section Seekers of Perl Wisdom