c:\@Work\Perl\monks\Anonymous Monk\1027898>perl extract_9-15_digits_2.pl
# matching with m1()
# ALL the following should match
ok 1 - match: '123 456 789'  (diff ' ')
ok 2 - match: '123.456.789'  (diff '.')
ok 3 - match: '123-456-789'  (diff '-')
ok 4 - match: '123-456789'  (diff '-')
ok 5 - match: '123456-789'  (diff '-')
ok 6 - match: '123-456789123456'  (diff '-')
ok 7 - match: '123456789123-456'  (diff '-')
ok 8 - match: '123-4-5-6-7-8-9-1-2-3-456'  (diff '-')
ok 9 - match: '123-4-5-6-789'  (diff '-')
ok 10 - match: '1234-56789'  (diff '-')
ok 11 - match: '123456789-123456'  (diff '-')
ok 12 - match: '123456789'  (diff '')
ok 13 - match: '123456789123456'  (diff '')
ok 14 - match: 'x123-456-789x'  (diff '-')
ok 15 - match: 'x123456-789x'  (diff '-')
ok 16 - match: 'x123456789x'  (diff '')
not ok 17 - match: 'x123-456789123-456x'  (diff undef)
#   Failed test 'match: 'x123-456789123-456x'  (diff undef)'
#   at extract_9-15_digits_2.pl line 79.
not ok 18 - match: 'x123456-789123456x'  (diff undef)
#   Failed test 'match: 'x123456-789123456x'  (diff undef)'
#   at extract_9-15_digits_2.pl line 79.
not ok 19 - match: 'x123456789123456x'  (diff undef)
#   Failed test 'match: 'x123456789123456x'  (diff undef)'
#   at extract_9-15_digits_2.pl line 79.
# NONE of the following should match
ok 20 - NO match: ''  (diff undef)
ok 21 - NO match: 'a'  (diff undef)
ok 22 - NO match: 'abcdefgh'  (diff undef)
ok 23 - NO match: 'abcdefghi'  (diff undef)
ok 24 - NO match: '12345678'  (diff undef)
ok 25 - NO match: '1234567891234567'  (diff undef)
ok 26 - NO match: '123-45-678'  (diff undef)
ok 27 - NO match: '123-4567891234-567'  (diff undef)
ok 28 - NO match: '-123456789'  (diff undef)
ok 29 - NO match: '123456789-'  (diff undef)
ok 30 - NO match: '1-23456789'  (diff undef)
ok 31 - NO match: '12345678-9'  (diff undef)
ok 32 - NO match: '1-2345678-9'  (diff undef)
ok 33 - NO match: '12-3456789'  (diff undef)
ok 34 - NO match: '1234567-89'  (diff undef)
ok 35 - NO match: '12-34567-89'  (diff undef)
ok 36 - NO match: '-1234567891234567'  (diff undef)
ok 37 - NO match: '1234567891234567-'  (diff undef)
ok 38 - NO match: '1-234567891234567'  (diff undef)
ok 39 - NO match: '123456789123456-7'  (diff undef)
ok 40 - NO match: '12345678-91234567'  (diff undef)
ok 41 - NO match: '12-34567891234567'  (diff undef)
ok 42 - NO match: '12345678912345-67'  (diff undef)
ok 43 - no warnings
1..43
# Looks like you failed 3 tests of 43.