Select Code to Download

my @all_reads = $segment->features(
    -type   => 'match',
...
    -end    => $window_end,
    -filter => sub { shift->strand == -1 },
);

for my $read (@all_reads) {
    print $read->qname,',',$read->aux_get("MD"), ',',$read->cigar_arra
+y,',', $read->strand, "\n";
};