$bad_chars = qr{[!~?/@]};

# remove any potential bad characters
$filename =~ s/$bad_chars//g;
[download]

You might want to read perldoc perlre for more.