Re^2: Testing if a string is a substring

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);
[download]

---
my name's not Keith, and I'm not reasonable.

Comment on Re^2: Testing if a string is a substring Download Code