Select Code to Download

push @positions, [ $read->end + 1, $base ];

@positions = grep $_->[ 1 ] =~ /ac/i, @positions;

@positions = map $_->[ 0 ], @positions;