      # from file content
# 'http://www.hidedoor.com/servlet/redirect.srv/sruj/sghijrpjj/sopq/p1/en/search/sumo/',
#'url' => 'http://www.hidedoor.com/servlet/redirect.srv/sruj/sghijrpjj/sopq/p1/en/search/sumo/',
#'title' => 'Sumo: 39 videos. Free porn @ Tube XXXX',
                                                                                  
# 'docshellID' 
#rl' => 'http://www.hidedoor.com/servlet/redirect.srv/sruj/sbssfqrp/s7k/p2/static/sh.f48a1a04fe8dbf021b4cda1d.html#rand=0.6431503315883887&iit=1615340813724&tmr=load%3D1615340812796%26core%3D1615340813132%26main%3D1615340813680%26ifr%3D1615340813756&cb=1&cdn=0&md=0&kw=&ab=-&dh=www.hidedoor.com&dr=&du=http%3A%2F%2Fwww.hidedoor.com%2Fservlet%2Fredirect.srv%2Fsruj%2Fsghijrpjj%2Fsopq%2Fp1%2Fen%2Fsearch%2Fsumo%2F&href=http%3A%2F%2Fwww.hidedoor.com%2Fservlet%2Fredirect.srv%2Fsruj%2Fsghijrpjj%2Fsopq%2Fp1%2Fen%2Fsearch%2Fsumo%2F&dt=Sumo%3A%2039%20videos.%20Free%20porn%20%40%20Tube%20XXXX&dbg=0&cap=tc%3D0%26ab%3D0&inst=1&jsl=1&prod=undefined&lng=en&ogt=&pc=men&pub=ra-5331b30f6289b363&ssl=0&sid=6048250cc2f9fb54&srf=0.01&ver=300&xck=0&xtr=0&og=&csi=undefined&rev=v8.28.8-wp&ct=1&xld=1&xd=1',
#  'title' => 'AddThis Utility Frame',
#                                                                                                          
      use strict;
      use JSON;
      use Data::Dumper;
#      use Encode;
      local $/;
      $, = "\n";
      my $NN="\n";
#      open( my $fh, '<', 'tt01.txt' );
      open(my $fh, '<', 'sessionstore1a.js');
      open (my $OUT, '>', 'tt03dsbk1a.txt');
#      my $encoding = 'cp1251';
#      my $unicode_json_text = decode( $encoding, <$fh> ); # UNICODE
#      print $unicode_json_text;
      my $text   = <$fh>;
#      my $pps = decode_json( $unicode_json_text );
#      my %ppsh = %$pps;
      my $json = new JSON;
      my $json_text = $json->decode($text);
      print %$json_text,'. start .',$NN;
      my %hh1=%$json_text;
      my $wkey = $hh1{windows};
      my @arr=@$wkey;
      my @arrt=@$wkey;

      my $v1=$arr[0];
      my $ZZ = $json_text->{windows}[0]{tabs}[0]{entries}[0];
      my %hz = %$ZZ;
      print $OUT $arr[0],$#arr,'NN',$wkey,$v1,' //WDS ',%hz,$ZZ,$NN; 
      my %hh2=%$v1;
      my $vh=$hh2{tabs};
      @arrt=@$vh;
      $v1=$arrt[0];
      print $OUT $arrt[0],$#arrt,'NN',$wkey,$hh2{tabs},$v1,@$vh,%hh2,' //TBS ',$NN; 
      my %hh=%$v1;
      $vh=$hh{entries};
      @arr=@$vh;
      my $vv=$arr[0];
      %hh2=%$vv;
#      
      print $OUT $arr[0],$#arr,'NN',$wkey,$hh2{tabs},$v1,@$vh,$vv,%hh2,' //ENT ',$NN; 
      print $OUT Dumper($json_text);
      my $ep=1;
      foreach my $eps(@{$json_text->{windows}}) {
        my %eph = ();
        print %$eps,' / ',$ep;
        $ep++;
        } 
      @arr=(1.2, 2.3, 3.4, 3.7);
      my @qqr = qq(@arr);
      my @TR = map {qq($_)} @arr;
      $vh=0;
      foreach $ep(@arr) {
       my $eps=$arr[$vh];
       my $ps=\$eps;
       $arr[$vh]=qq($ep);
       $vh++;
       print $vh,' ',$eps,' / ',$ep,$NN;
       };
      $vv=\@arr;
      my $vvs = \@TR;
      my $JT=encode_json($vvs);
      print ' lll ',@arr,$vv,' / ',$JT,$NN;  
      print @TR,' // ',@qqr,$NN;