Лучший способ удалить определенные символы из строки Perl

У меня есть динамически генерируемые строки, такие как @#@!efq@!#! , и я хочу удалить определенные символы из строки с помощью Perl.

В настоящее время я делаю вот что (заменяя символы ничем):

$varTemp =~ s/['\$','\#','\@','\~','\!','\&','\*','\(','\)','\[','\]','\;','\.','\,','\:','\?','\^',' ', '\`','\\','\/']//g;

Есть ли лучший способ сделать это? Я ищу что-то чистое.