Select Code to Download

use LWP::Simple;

...

$txt = substr $html, index($html,$s), index($html,$e);
print "$txt\n";