while (<$fh>) { print "$_\n" for />([^><]+)</g }