if ( $_ =~ m// ) { $var1=$_; $var1 =~ /(.*?)<\/name>/i; $var1 = $1; $var1 =~ s/ //g; print "$var1\n"; }