while(<>) {

   if (my ($matched) = $_ =~ />([^<]+)</) {
      print "'$matched': on line $.\n";
   }
}