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