Select Code to Download

#!/usr/local/bin/perl -l
#
...
my @elems = split m{$rxSplit}, $html;

print for @elems;

<tag ref=1>
Start
...
</tag>
and end
</tag>