version 2.0(3)
vsan database
  vsan 1000 name "SANMGMT_Green" 
  vsan 1010 name "IMIS_Green" 
  vsan 1030 name "TEMS_Green" 
  vsan 1050 name "IPBilling_Green" 
  vsan 1060 name "Greek_Green" 
  vsan 1900 name "SRDF_Green" 
  vsan 3120 name "TAPEA_GREEN" 
power redundancy-mode combined force
logging server 10.33.34.235 6
fcdomain domain 20 static vsan 1
fcdomain fcid persistent vsan 1
fcdomain domain 20 static vsan 1000
fcdomain fcid persistent vsan 1000
fcdomain domain 20 static vsan 1010
fcdomain fcid persistent vsan 1010
fcdomain domain 20 static vsan 1030
fcdomain fcid persistent vsan 1030
fcdomain domain 20 static vsan 1050
fcdomain fcid persistent vsan 1050
fcdomain domain 20 static vsan 1060
fcdomain fcid persistent vsan 1060
fcdomain domain 20 static vsan 1900
fcdomain fcid persistent vsan 1900
fcdomain fcid persistent vsan 3120
fcdomain fcid database
  vsan 1060 wwn 50:06:04:84:4a:36:f4:d8 fcid 0x6d0000 dynamic
  vsan 1060 wwn 50:06:04:84:4a:36:f4:d6 fcid 0x6d0001 dynamic
  vsan 1050 wwn 50:06:04:84:4a:36:f4:d7 fcid 0x140001 dynamic
  vsan 1060 wwn 50:06:04:8c:4a:36:f4:c2 fcid 0x6d0002 dynamic

##</code><code>##

vsan 1000 = "SANMGMT_Green" 
vsan 1010 = "IMIS_Green" 
vsan 1030 = "TEMS_Green" 
vsan 1050 = "IPBilling_Green" 
vsan 1060 = "Greek_Green" 
vsan 1900 = "SRDF_Green" 
vsan 3120 = "TAPEA_GREEN" 

##</code><code>##

local $/ = "";
while ( my $record = <DATA> ) 
{
	my ($vsan) = $record =~ /^\s+vsan\s(\d+)/;
	my ($vname) = $record =~ /^\s+vsan\s\d+name\s(.+)$/;
	print "$vsan, $vname\n";
}


##</code><code>##

	next unless ($record =~ /^\s+vsan\s(\d+)\sname\s(.+)$/);  
	print $record;