Select Code to Download

while (my @section = splice @vidids, 0, 50) {
    my $idees = join ',', @section;
...
    my $json = decode_json($result);
    push @counts, map $_->{viewCount}, @{ $json->{items} };
}

while ($from <= $#vidids) {
    my @section = @vidids[ $from .. $to ];
...
    $to = $from + 50;
    $to = $#vidids if $to > $#vidids;
}

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,