c:\@Work\Perl\monks\Anonymous Monk\1027898>perl extract_9-15_digits_4.pl
#
# -------- matching with m1() --------
#
# ALL the following should match
ok 1 - match: '123 456 789'
ok 2 - match: '123.456.789'
ok 3 - match: '123-456-789'
ok 4 - match: '123-456789'
ok 5 - match: '123456-789'
ok 6 - match: '123-456789123456'
ok 7 - match: '123456789123-456'
ok 8 - match: '123-4-5-6-7-8-9-1-2-3-456'
ok 9 - match: '123-4-5-6-789'
ok 10 - match: '1234-56789'
ok 11 - match: '123456789-123456'
ok 12 - match: '123456789'
ok 13 - match: '123456789123456'
ok 14 - match: 'x123-456-789x'
ok 15 - match: 'x123456-789x'
ok 16 - match: 'x123456789x'
ok 17 - match: 'x123-456789123-456x'
ok 18 - match: 'x123456-789123456x'
ok 19 - match: 'x123456789123456x'
# NONE of the following should match
ok 20 - NO match: ''
ok 21 - NO match: 'a'
ok 22 - NO match: 'abcdefgh'
ok 23 - NO match: 'abcdefghi'
ok 24 - NO match: 'abcdefghijklmno'
ok 25 - NO match: 'abcdefghijklmnop'
ok 26 - NO match: '-'
ok 27 - NO match: '--------'
ok 28 - NO match: '---------'
ok 29 - NO match: '---------------'
ok 30 - NO match: '----------------'
ok 31 - NO match: '12345678'
ok 32 - NO match: '1234567891234567'
ok 33 - NO match: '123-45-678'
ok 34 - NO match: '123-4567891234-567'
ok 35 - NO match: '-123456789'
ok 36 - NO match: '123456789-'
ok 37 - NO match: '1-23456789'
ok 38 - NO match: '12345678-9'
ok 39 - NO match: '1-2345678-9'
ok 40 - NO match: '12-3456789'
ok 41 - NO match: '1234567-89'
ok 42 - NO match: '12-34567-89'
ok 43 - NO match: '-1234567891234567'
ok 44 - NO match: '1234567891234567-'
ok 45 - NO match: '1-234567891234567'
ok 46 - NO match: '123456789123456-7'
ok 47 - NO match: '12345678-91234567'
ok 48 - NO match: '12-34567891234567'
ok 49 - NO match: '12345678912345-67'
ok 50 - NO match: '1--23456789'
ok 51 - NO match: '12--3456789'
ok 52 - NO match: '123--456789'
ok 53 - NO match: '1234--56789'
ok 54 - NO match: '123456--789'
ok 55 - NO match: '1234567--89'
ok 56 - NO match: '12345678--9'
ok 57 - NO match: '1--234567891234567'
ok 58 - NO match: '12--34567891234567'
ok 59 - NO match: '123--4567891234567'
ok 60 - NO match: '1234567--891234567'
ok 61 - NO match: '1234567891234--567'
ok 62 - NO match: '12345678912345--67'
ok 63 - NO match: '123456789123456--7'
ok 64 - NO match: '1--23456789123456'
ok 65 - NO match: '12--3456789123456'
ok 66 - NO match: '123--456789123456'
ok 67 - NO match: '1234567--89123456'
ok 68 - NO match: '1234567891234--56'
ok 69 - NO match: '12345678912345--6'
ok 70 - list extraction
ok 71 - no warnings
1..71