quotemeta is the best way to do this

If u want to this by the explicitly instead of using the quatemeta just add the character you want to prefix with the "\" in the substitute.

while(<>){
    $_=~ s/([\$|\||\[|\)|\\|\/|\(])/\\$1/g;
    print;
}
[download]