Select Code to Download

sub parseLines{
    my $content = do {
...
    }
    return \%hash;
}

    for ($content =~ /(.*\n?)/g) {
        my $line = $1;
...
        my ($header) = split(/ /, $line);
        $hash{$header} = 1;
    }