Select Code to Download

my @mac_addrs = ("0015FAA3F03A", "0015FAA3F03B", "0015FAA3F03C");

...
}

print "$_\n" for convert(@mac_addrs);

$ perl -le '@a = (2, 3, 4, 5); @b = map { 2 * $_ } @a; print for @b'
4
6
8
10

$ perl -le '@a = (2, 3, 4, 5); @b = map { $_ % 2 ? () : ($_, $_ / 2) }
+ @a; print for @b'
2
1
4
2

$ perl -le '@mac_addrs = ("0015FAA3F03A", "0015FAA3F03B", "0015FAA3F03
+C"); @a = map { lc $_ } @mac_addrs; print for @a'
0015faa3f03a
0015faa3f03b
0015faa3f03c

$ perl -le '@mac_addrs = ("0015FAA3F03A", "0015FAA3F03B", "0015FAA3F03
+C"); @a = map { unpack "(A4)*", lc $_ } @mac_addrs; print for @a'
0015
...
0015
faa3
f03c

$ perl -le '@mac_addrs = ("0015FAA3F03A", "0015FAA3F03B", "0015FAA3F03
+C"); @a = map { join ".", unpack "(A4)*", lc $_ } @mac_addrs; print f
+or @a'
0015.faa3.f03a
0015.faa3.f03b
0015.faa3.f03c

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

$ perl -le '
> use strict;
...
AP0015.faa3.f03a
AP0015.faa3.f03b
AP0015.faa3.f03c