Help for this page

Select Code to Download

Select or download this

while( $seq =~ m[($re)]g ) {
    printf "Found: '$1' at '$id':%d\n", $-[0];
}