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";
}