$mac2 = $2;

##</code><code>##

if ($macs[1] =~ /(\S{17})\|(\S{17})/) {
                print "$macs[0] MAC1: $1\n";
                print "$macs[0] MAC2: $2\n";
                $mac1 = $1;
                $mac2 = $2;
                $mac1 =~ s/:/-/g;                
                $mac2 =~ s/:/-/g;  
                print "Converted Mac1: $mac1 Mac2: $mac2\n";
            }

##</code><code>##

$mac1 =~ s/:/-/g;