use strict;
use warnings;
use XML::Simple;
use Data::Dumper;

my(%projs);
while(<>) {
  # Extract project files linked into solution
  if(/^Project\(.+\)\s+=\s+\"([^"]+)\",\s+\"([^"]+)\"/) {
    $projs{$1} = $2;   # Got one!
  }
}

# Process the project files - XML format
my $xs = new XML::Simple();
for my $p (keys(%projs)) {
  my $file = $projs{$p};
  print "Parsing $p, file $file\n";
  my $ref = $xs->XMLin($file);
  # Print parsed XML - or output in another format?
  print Dumper($ref);
}