c:\@Work\Perl\monks\Anonymous Monk\1213014>perl only_double_letters_2.pl
#
#  test basic regexes head-to-head
#
# no matches shall be found
ok 1 - ''
ok 2 - 'a'
ok 3 - 'ab'
ok 4 - 'aba'
ok 5 - 'abab'
ok 6 - 'abcba'
ok 7 - 'aaa'
ok 8 - 'aaaa'
ok 9 - 'baaa'
ok 10 - 'aaab'
ok 11 - 'baaab'
ok 12 - 'aaabbb'
ok 13 - 'world'
# one or more matches shall be found
ok 14 - 'aa'
ok 15 - 'xaa'
ok 16 - 'aax'
ok 17 - 'xaax'
ok 18 - 'aabb'
ok 19 - 'xaabb'
ok 20 - 'aabbx'
ok 21 - 'xaabbx'
ok 22 - 'xaabbx'
ok 23 - 'aaxbb'
ok 24 - 'xaaxbb'
ok 25 - 'aaxbbx'
ok 26 - 'xaaxbbx'
ok 27 - 'aabbcc'
ok 28 - 'xaabbcc'
ok 29 - 'aabbccx'
ok 30 - 'xaabbccx'
ok 31 - 'aaxbbcc'
ok 32 - 'xaaxbbcc'
ok 33 - 'aaxbbccx'
ok 34 - 'xaaxbbccx'
ok 35 - 'xaaxbbxccx'
ok 36 - 'hello'
ok 37 - 'balloon'
ok 38 - 'subbookkeeper'
1..38
ok 39 - no warnings
1..39