my @dataElem = ( split ',', $data );

foreach (@dataElem) {
    next
      if !( my ( $lable, $value ) = (/("time":{"?)*"(.*)":([^}]+)/)[ 1, 2 ] );
    say "\u$lable: $value";
}