my @outputlist = '28:8a:1c:59:cc:85'; for my $addr (@outputlist) { my $mac_R5 = join ".", $addr =~ tr/://dr =~ /..../g; print $mac_R5, "\n"; }