Select Code to Download

use strict;
use warnings;
...
    chomp;
    print $/. $_ if /(.+)/ and defined $headers{$1};
}