Select Code to Download

    s/^.*(<.*>)//g;

<tag1> data <tag2> more data </tag2><tag2> even more data </tag2></tag
+1>

#!/usr/bin/perl

...
{
    print pop;
}