interface Vlan1
 no ip address
 no ip route-cache
 shutdown
!
interface Vlan12
 ip address 68.142.192.79 255.255.255.0
 no ip route-cache
 shutdown
!
interface Vlan8
 ip address 68.142.192.79 255.255.255.0
 no ip route-cache
!

##</code><code>##

while(<IN>)
{
my ($key) = /^(interface Vlan[\d]*)/;
next if $key =~ /^\s ip address \d*\.\d*\.\d*\.\d* \d*\.\d*\.\d*\.\d*/;
# next if $key =~ /^\s*$/;
my ($value) = /^interface Vlan([\d]*)/;
$hash1{$key} = $value ;
} 

##</code><code>##

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