radix

my $badstring = q{' OR ''='};
my $goodstring = q{Jonny};

for my $string ($badstring , $goodstring) {
 if ( $string =~ /['*;]/ ) {
    print "$string is BAD!\n";
    exit
 }
 else {
    print "$string is GOOD!\n"
 }
}
[download]

Regards

mwa