Select Code to Download

version 2.0(3)
vsan database
...
  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

vsan 1000 = "SANMGMT_Green" 
vsan 1010 = "IMIS_Green" 
...
vsan 1060 = "Greek_Green" 
vsan 1900 = "SRDF_Green" 
vsan 3120 = "TAPEA_GREEN"

local $/ = "";
while ( my $record = <DATA> ) 
...
    print "$vsan, $vname\n";
}

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