Select Code to Download

$ perl -e '$/=undef;$t=<>;foreach(3815,3975,3871){$i=index($t,"ID=$_")
+;printf"ID=$_:%d(chunk=%d,offset=%d)\n",$i,int($i/1024),$i%1024}' Alp
+habeticalListing.asp
ID=3815:103836(chunk=101,offset=412)
ID=3975:104688(chunk=102,offset=240)
ID=3871:105271(chunk=102,offset=823)

while (1) {
    my $buf;
...
    last unless $n;
    push @listing, $buf =~ /ID=(\d+)/g;
}