use strict;
use warnings;

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

##</code><code>##

Unmatched right square bracket at C:\Perl\progs\junk.pl line 5, at end of line
syntax error at C:\Perl\progs\junk.pl line 5, near "/[$&<>@/]"
Search pattern not terminated or ternary operator parsed as search pattern at junk.pl line 5.

##</code><code>##

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

##</code><code>##

Use of uninitialized value in concatenation (.) or string at junk.pl line 5.
Nope!

##</code><code>##

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

##</code><code>##

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