Help for this page

Select Code to Download

Select or download this

while (/TATA/g) {
    print "Matched 'TATA' at position ", pos, "\n";
    pos() -= 2;
}

Select or download this

while (/TA(?=TA)/g) {
    print "Matched 'TATA' at position ", pos, "\n";
}