Select Code to Download

$ cat t1.pl 
#!/usr/bin/perl -p
...
<bpt i="9" x="9"><p></bpt>text<xczcx>texxxxx<ept i="9"></p></ept>
<bpt i="10" x="10"><p></bpt>text<xczcx>texxxxx<ept i="10"></p></ept>
$