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