my $str = join(" ",<$file>);
print $1 while $str =~ /<$tagname>(.*)<\/$tagname>/msg;