Select Code to Download

use strict;
use warnings;

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

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 pat
+tern at junk.pl line 5.

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

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

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

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