Select Code to Download

for my $line (@htmlLines) {
    print $line;
}

use warnings;
use strict;
...
    next if $token->is_tag('img');
    print $token->as_is;
}