Wie praktisch immer in Perl gibt es mehrere Möglichkeiten:

Die geringste Änderung gegenüber Deinem Code: die Zeichen zu einer Zeichengruppe zusammen fassen: s/[\@\${}()*]//g;

Wenn es sich immer nur um einzelne Zeichen handelt, die ausgefiltert werden sollen ist tr/// noch kompakter und schneller:
tr/@${}()*//d;

Und bist du Dir wirklich sicher, dass Du alle Zeichen, die Du entfernen willst, in Deiner Liste hast? Oft ist eine Positiv-Liste deutlich robuster: tr/A-Za-z0-9_-//cd; entfernt z.B. alle Zeichen außer ASCII-Buhstaben, Ziffern, - und _; das 'c'-Argument "invertiert" die Suchliste im ersten Teil des transpose-Befehls, und 'd' sorgt dafür, dass alle gematchten Zeichen, für die kein Replacment angegeben ist, entfernt werden.