Select Code to Download

# sample data
my %network = ( 10.1.0.1, { 'name' => 'vlan 2' }
...
        $key =~ /(\d+)/;
        return $1;
}

#### untested/concept code below

...
      # do stuff...
}