Select Code to Download

use strict;
use LWP::Simple;
...
        print $origtext, "\n";
    }
}

my $stripped_html;    # or whatever you wanna call it

$stripped_html .= $origtext;

my @stripped_html;

#and inside &text
push(@stripped_html, $origtext);