#!perl
use strict;
use JSON;

my $devicesData = '"deviceId": 6931162,
   "friendlyName": "U12H240T70 - R6300v2",
   "lastInform": "2016-02-15T15:08:24.611Z",
   "sn": "4401487KA0276",
   "subscriberCode": "8245112910034496"';

my $hr = decode_json "{$devicesData}";
print "$_ = $hr->{$_}\n" for keys %$hr;