Select Code to Download

#!/usr/bin/perl

...
    /\G([^{}\s]+)/gc ? [ @$e, $1 ] :
    return fixhash($e) while 1;
  }

[
  "sys",
...
    },
  },
]

#!/usr/bin/perl

...
my $parse = fixhash expr();
pos($_) < length $_ and die "incomplete parse ", substr $_, pos($_);
use Data::Dump 'dd'; dd $parse;

#!/usr/bin/perl

...
pos($_) < length $_ and die "incomplete parse ", substr $_, pos($_);
$Data::Dump::LINEWIDTH = 26;
use Data::Dump 'dd'; dd $parse;

[
  "sys",
...
    },
  },
]

#!/usr/bin/perl

...
        }
    }
}