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