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

    my @matches = (
        qr/"sn": "(.+?)"/,
        qr/"subscriberCode": "(.+?)"/,
        qr/"friendlyName": "(.+?)"/,
        qr/"SolicitTimestamp": "(.+?)"/,
        qr/"StatusCode": "(.+?)"/,
        );

    if ($devicesData ~~ @matches)
    {
        print "Found: $1\n";

    }

    #output
    Found: 4401487KA0276