Select Code to Download

use strict;
use warnings;
...

my $res = index ($corpus, $lookfor) > -1 ? 1 : 0;
ok $res, 'Substring found';

use strict;
use warnings;
...
$corpus = 'Something else';
$res = index ($corpus, $lookfor) + 1;
ok !$res, 'Substring not found';