c:\@Work\Perl\monks\Anonymous Monk\1176775>perl periodic_reps_1.pl
#
#  periodic_1()
#
# no repeating groups found
ok 1 - '' -> ()
ok 2 - 'A' -> ()
ok 3 - 'AA' -> ()
ok 4 - 'AbA' -> ()
ok 5 - 'ABC' -> ()
# one group found
ok 6 - 'AAA' -> ('AAA')
ok 7 - 'AbAcA' -> ('AbAcA')
ok 8 - 'xAbAcA' -> ('AbAcA')
ok 9 - 'AbAcAx' -> ('AbAcA')
ok 10 - 'xAbAcAx' -> ('AbAcA')
ok 11 - 'AbcAdeA' -> ('AbcAdeA')
ok 12 - 'xAbcAdeA' -> ('AbcAdeA')
ok 13 - 'AbcAdeAx' -> ('AbcAdeA')
ok 14 - 'xAbcAdeAx' -> ('AbcAdeA')
ok 15 - 'BcBdeBAAA' -> ('AAA')
# two or more groups found
ok 16 - 'AAAAAA' -> ('AAA' 'AAA')
ok 17 - 'AbAcAAbAcA' -> ('AbAcA' 'AbAcA')
ok 18 - 'AbAcAAdeAfgA' -> ('AbAcA' 'AdeAfgA')
ok 19 - 'AbAcABdeBfgBChijCklmC' -> ('AbAcA' 'BdeBfgB' 'ChijCklmC')
ok 20 - 'AbAcA BdeBfgB ChijCklmC' -> ('AbAcA' 'BdeBfgB' 'ChijCklmC')
ok 21 - 'AAbAcAABdeBfgBBCChijCklmCC' -> ('AbAcA' 'BdeBfgB' 'ChijCklmC')
# some test cases from pm#1176775 post
ok 22 - 'x1x2x...x' -> ('x1x2x' '...')
#
#  done testing functions
#
1..22
ok 23 - no warnings
1..23