Select Code to Download

use strict;
use warnings;
...
    # are numbered from the same starting point in each alternation br
+anch.
    # It is available starting from perl 5.10.0.
}

1234 5789 6efE adAB hiFI gDGH bcC
1234 5789 6efE bcCF dgGH aABD hiI
...
1234 5789 6fiI bcCF dgGH aABD ehE
1234 5789 6fiI bcCF degE aABD hGH
...

([[:alnum:]])([[:alnum:]])([[:alnum:]])..([[:alnum:]]).*
.*?(?|(?!\1|\2|\3|\4)([[:alnum:]])....(?!\1|\2|\3|\4)([[:alnum:]])(?!\
+1|\2|\3|\4)([[:alnum:]])...(?!\1|\2|\3|\4)([[:alnum:]])|(?!\1|\2|\3|\
+4)([[:alnum:]])...(?!\1|\2|\3|\4)([[:alnum:]])(?!\1|\2|\3|\4)([[:alnu
+m:]])(?!\1|\2|\3|\4)([[:alnum:]])|(?!\1|\2|\3|\4)([[:alnum:]])...(?!\
+1|\2|\3|\4)([[:alnum:]])(?!\1|\2|\3|\4)([[:alnum:]])....(?!\1|\2|\3|\
+4)([[:alnum:]])|(?!\1|\2|\3|\4)([[:alnum:]])(?!\1|\2|\3|\4)([[:alnum:
+]])(?!\1|\2|\3|\4)([[:alnum:]])...(?!\1|\2|\3|\4)([[:alnum:]])|(?!\1|
+\2|\3|\4)([[:alnum:]])....(?!\1|\2|\3|\4)([[:alnum:]])....(?!\1|\2|\3
+|\4)([[:alnum:]])...................(?!\1|\2|\3|\4)([[:alnum:]])|(?!\
+1|\2|\3|\4)([[:alnum:]])...................(?!\1|\2|\3|\4)([[:alnum:]
+])....(?!\1|\2|\3|\4)([[:alnum:]])....(?!\1|\2|\3|\4)([[:alnum:]])|(?
+!\1|\2|\3|\4)([[:alnum:]])........................(?!\1|\2|\3|\4)([[:
+alnum:]])(?!\1|\2|\3|\4)([[:alnum:]]).......................(?!\1|\2|
+\3|\4)([[:alnum:]])|(?!\1|\2|\3|\4)([[:alnum:]])(?!\1|\2|\3|\4)([[:al
+num:]])(?!\1|\2|\3|\4)([[:alnum:]]).......................(?!\1|\2|\3
+|\4)([[:alnum:]])|(?!\1|\2|\3|\4)([[:alnum:]]).......................
+(?!\1|\2|\3|\4)([[:alnum:]])(?!\1|\2|\3|\4)([[:alnum:]])(?!\1|\2|\3|\
+4)([[:alnum:]])|(?!\1|\2|\3|\4)([[:alnum:]]).......................(?
+!\1|\2|\3|\4)([[:alnum:]])(?!\1|\2|\3|\4)([[:alnum:]])...............
+.........(?!\1|\2|\3|\4)([[:alnum:]])|(?!\1|\2|\3|\4)([[:alnum:]])...
+.....................(?!\1|\2|\3|\4)([[:alnum:]])....(?!\1|\2|\3|\4)(
+[[:alnum:]])...................(?!\1|\2|\3|\4)([[:alnum:]])|(?!\1|\2|
+\3|\4)([[:alnum:]])...................(?!\1|\2|\3|\4)([[:alnum:]])...
+.(?!\1|\2|\3|\4)([[:alnum:]])........................(?!\1|\2|\3|\4)(
+[[:alnum:]])).*
[snip]