my $name = 'what$ever';
print $name =~ /[\$&<>@\/]/ ? 'Yep!' : 'Nope!';