Select Code to Download

use Data::Dumper;
print Dumper parse_lpc_expr(
...
        die "Can't parse \"$1\" at \"$_\"\n";
    }
}

$VAR1 = [
          '1',
...
          ],
          '"end"'
        ];