if($line =~ m/<.+>(.+)<\/.+>/){ 
  print $1; 
}