if( $result[0] =~ /^((?:[0-9a-fA-F]{1,2}[:-]){6})$/ ){
    print "Mac: $1"
}