c:\@Work\Perl\monks\Anonymous Monk\1159176>perl convert_mac_addr_2.pl
# ALL of these shall be converted
ok 1 - '28:8a:1c:59:cc:85' -> '288a.1c59.cc85' (converted)
ok 2 - '28-8a-1c-59-cc-85' -> '288a.1c59.cc85' (converted)
# NONE of these shall be converted
ok 3 - '28:8a-1c-59-cc-85' -> '28:8a-1c-59-cc-85' (NO conversion)
ok 4 - '28-8a-1c-59-cc:85' -> '28-8a-1c-59-cc:85' (NO conversion)
ok 5 - '28-8a:1c:59:cc:85' -> '28-8a:1c:59:cc:85' (NO conversion)
ok 6 - '28:8a:1c:59:cc-85' -> '28:8a:1c:59:cc-85' (NO conversion)
ok 7 - '28:8a:1c-59:cc:85' -> '28:8a:1c-59:cc:85' (NO conversion)
ok 8 - '28-8a-1c:59-cc-85' -> '28-8a-1c:59-cc-85' (NO conversion)
ok 9 - '28:8a:1c:59:cc:8' -> '28:8a:1c:59:cc:8' (NO conversion)
ok 10 - '28:8a:1c:59:cc:' -> '28:8a:1c:59:cc:' (NO conversion)
ok 11 - '28-8a-1c-59-cc' -> '28-8a-1c-59-cc' (NO conversion)
ok 12 - '28-8a-1c-59-cc-85-' -> '28-8a-1c-59-cc-85-' (NO conversion)
ok 13 - '28-8a-1c-59-cc-85-8' -> '28-8a-1c-59-cc-85-8' (NO conversion)
ok 14 - '28:8a:1c:59:cc:85:88' -> '28:8a:1c:59:cc:85:88' (NO conversion)
ok 15 - '28:8a:1c:59:cc:85:888' -> '28:8a:1c:59:cc:85:888' (NO conversion)
ok 16 - '-8a-1c-59-cc-85' -> '-8a-1c-59-cc-85' (NO conversion)
ok 17 - '8-8a-1c-59-cc-85' -> '8-8a-1c-59-cc-85' (NO conversion)
ok 18 - '228-8a-1c-59-cc-85' -> '228-8a-1c-59-cc-85' (NO conversion)
ok 19 - '-28-8a-1c-59-cc-85' -> '-28-8a-1c-59-cc-85' (NO conversion)
ok 20 - '28:8a:1g:59:cc:85:88' -> '28:8a:1g:59:cc:85:88' (NO conversion)
ok 21 - '28:8a:1:59:cc:85:88' -> '28:8a:1:59:cc:85:88' (NO conversion)
ok 22 - '28:8a:111:59:cc:85:88' -> '28:8a:111:59:cc:85:88' (NO conversion)
1..22
ok 23 - no warnings
1..23