Select Code to Download

    while(  $data =~ /(\S+)/g  ) {
        $average[0] += hex substr( $1, 1, 2 );
        $average[1] += hex substr( $1, 3, 2 );
        $average[2] += hex substr( $1, 5, 2 );
    }