Select Code to Download

foreach (@open) {
$_ =~ s/\n//ig;

#!/usr/bin/perl -w
use strict;

...
    print "TEXT: $text\n" if defined $1;
    print "HTML: $html\n" if $2;
}