Re^2: Testing if a string is a substring

[reasonablekeith]

I wouldn't use a regex for this, there aren't any patterns, just plain old string matching

my $super = 'AAAAATT';
my $sub   =  'AT';

print "1\n" if (index($super, $sub) != -1);