Help for this page
#!/usr/bin/perl ... foreach (qw/AABBCCDD AABBBCCD AAABBCCD AABBCCCD AAABCDE/) { print "$1\n" if /$pat/; }
AABBCC AABB AABBCC AABBCC AABCDE