##

#!/usr/bin/perl

use strict;

my $line = "";
open(XML,"<$file") || dir "Couldn't find $file\n";

foreach $line (){
  chomp($line);
  $line =~ s/^\s+//g;
  if ($line =~ /name/{
    print "$line\n";
  }
}