Select Code to Download

use strict;
use warnings;
...
    my ($label, $data) = split('=', $datapair);
    my $out = "label: $label; data: $data\n";
}