$line = "cksjdcdbsdcnusageControlAccum:S551(!{\!reportingGroups\!:[{\!absoluteAccumulated\!:{\!counters\!:[{\!bidirVolume\!:306490319,\!name\!:\!base\!}],\!expiryDate\!:{\!volume\!:\!24-07-2014T00:00:00\!},\!previousExpiryDate\!:{\!time\!:\!26-06-2014T00:00:00\!,\!volume\!:\!26-06-2014T00:00:00\!},\!reportingLevel\!:\!totalTraffic\!,\!resetPeriod\!:{\!volume\!:\!28 days\!}},\!name\!:\!110\!,\!restartInfo\!:\!26-06-2014T00:00:00\!,\!selected\!:\!yes\!,\!subscriberGroupName\!:\!GJ_FUP_3GEXP_125MB_28\!,\!subscriptionDate\!:\!26-06-2014T00:00:00\!,\!validityTime\!:3600}],\!version\!:\!2.1\!}!)";

$line =~s/\\//g;
if ( $line =~ /usageControlAccum:(\w+)\(!(.*)!\)/ ) {
         $p=$2;
$p=~s/:\{/ => {/g;
$p=~s/:\[/ => [/g;
$p=~s/!/\'/g;
$p=~s/\':/\'=>/g;
 }
print $p;