#!/usr/bin/perl

use strict;

while(my $line = <>) {
   $line =~ /(.*?)"jsonStringObject": "{(0_userdata\.0\.vis\.MaterialDesignWidgets\.Wetter.*?)}"/;

   if ($2) {
      print "$1\"json_string_oid\": \"$2\",\n";
   } else {
      print $line;
   }
}
