Select Code to Download

my $string = '13,130,213';
my $check = '13';
...
else {
    print "'${check}' is NOT in '${string}'\n";
}

my $string = '100,two hundred,300,400,500,600,700,800';
my @checks = ( qw/200 400 600 700 900/ );
...
        print "'${check}' is NOT in '${string}'\n";
    }
}