perl -e '$tag = "text"; while(<>) {print if(/<$tag/ .. m!</$tag!)}' file.txt