while (<DATA>) {
     print if m{<tag>} .. m{</tag>};
}

__DATA__
a
b
<tag>
1
2
3
</tag>
happy new year
...
<tag>
4
5
6
</tag>
END