while(<SOURCE>) {
    my $source = $_;
    #skip blank lines
    next if ($source =~ m/^(\s)*$/);
    if (substr($source,145,16) =~ /Page:          1/) {
        $page1 = 1;
        next;
    }
    if (substr($source,76,11) =~ /Run Listing/) {
        $reporttype = 1;
        next;
    }
    if (substr($source,72,9) =~ /Sorter: 2/) {
        $sorter2 = 1;
        if ($page1 == 1 and $reporttype == 1 and $sorter2 == 1){   
        ++$dcount;
        print substr($source,83,20) . "\n";
        $page1 = 0;
        $reporttype = 0;
        $sorter2 = 0;
        next;
        }
    }