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

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