@mac_addrs = ("0015FAA3F03A", "0015FAA3F03B", "0015FAA3F03C"); @a = map { "AP" . join ".", unpack "(A4)*", lc $_ } @mac_addrs; print for @a'
AP0015.faa3.f03a
AP0015.faa3.f03b
AP0015.faa3.f03c