#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';

say "Code:";
my @current_command;
while (<DATA>) {
    chomp;
    push @current_command, $1 if /^\s*(.+)\s{$/;
    if (/^\s*(.+);$/) {
        my $last_term = $1;
        say "set @current_command $last_term";
    }
    pop @current_command if /}$/;
}

__DATA__
deviceconfig {
  system {
    snmp-setting {
      snmp-system {
        location "VA";
        contact US;
        send-event-specific-traps yes;
      }
      access-setting {
        version {
          ll1 {
            snmp-community-string trap;
          }
        }
      }
    }