$ perl -le '
> use strict; use warnings;
> print q{whatever} =~ m{[\$&<>\@/]} ? q{Yep} : q{Nope};'
Nope
$ perl -le '
> use strict; use warnings;
> print q{v$table} =~ m{[\$&<>\@/]} ? q{Yep} : q{Nope};'
Yep
$ perl -le '
> use strict; use warnings;
> print q{bill@bloggs.com} =~ m{[\$&<>\@/]} ? q{Yep} : q{Nope};'
Yep
$