Select Code to Download

use Modern::Perl;

...
    my ( $lable, $value ) = /"(.*)":(.*)/;
    say "\u$lable: $value";
}

Temp: 70.00
Tmode: 2
Fmode: 0
Override: 0

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

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

Temp: 75.50
Tmode: 2
...
Day: 4
Hour: 13
Minute: 49