#!/usr/bin/perl

while(<>){
  /^<name>/ or next;
  ($output) = ($_ =~ /^<name>(.*)<\/name>/);
  print "$output\n";
}

#Alternative way to isolate name from <name> line.
#What happens if you get rid of the parenthesis around
#the first occurance of $output?