Select Code to Download

interface Vlan1
 no ip address
...
 ip address 68.142.192.79 255.255.255.0
 no ip route-cache
!

while(<IN>)
{
...
my ($value) = /^interface Vlan([\d]*)/;
$hash1{$key} = $value ;
}

interface Vlan1 => 1
interface Vlan8 => 8
interface Vlan12 => 12