Find Quest Items

use Getopt::Std;
my $TEST = "ReadQuest_FoundItems.txt"; #default
open(DUMB, ">>$TEST") or die "Unable to find backup file!: $TEST\n";
    ##########################
    ########## EDIT
    my $quest_folder = "C:/eqemu/quests/";
    ########## EDIT
    ##########################
    my @FOUND_ITEMS;
    print "\n\n Enter Zone Shortname you wish to find items from... \n";
    my $zonesn =  <STDIN>;
    chomp $zonesn;
    FindSummonItemPerl();
    FindSummonItemLua();

    print DUMB "START QUEST  SUMMONITEMS IN - $zonesn - \n \n";

    $FOUND_TEXT = '(';
    foreach $I (@FOUND_ITEMS) {
        if ($I == $FOUND_ITEMS[$#FOUND_ITEMS]) {
            $FOUND_TEXT .= "$I);";
        } elsif($I == '') {

        }
        else {
            $FOUND_TEXT .= "$I,";
        }
    }
    print DUMB "$FOUND_TEXT \n \n";
    print DUMB "END ITEMS IN - $zonesn - $TOTAL_ITEMS items Found \n";
    print DUMB "########################################################## \n";
    print DUMB "########################################################## \n \n";
    close (DUMB);
    print "$zonesn -- DONE! \n";


sub FindSummonItemPerl {
    my @files = glob "$quest_folder$zonesn/*.pl";
    if($files[0]) {
        for (0..$#files){
            open(F, $files[$_]) or die "Unable to open questfile: $files[$_]\n";

            while(<F>) {
                if(/quest::summonitem\((.*?)\)/i) {
                    push(@FOUND_ITEMS,fixtext($1));
                }
                elsif(/quest::summonitem\((.*?)\,/i) {
                    push(@FOUND_ITEMS,fixtext($1));
                }
            }

        }
    }
}

sub FindSummonItemLua {
    my @files = glob "$quest_folder$zonesn/*.lua";
    if($files[0]) {
        for (0..$#files){
            open(F, $files[$_]) or die "Unable to open questfile: $files[$_]\n";

            while(<F>) {
                if(/SummonItem\((.*?)\)/i) {
                    push(@FOUND_ITEMS,fixtext($1));
                }
                elsif(/SummonItem\((.*?)\,/i) {
                    push(@FOUND_ITEMS,($1));
                }
            }

        }
    }
}

sub fixtext {
    local $_    = shift;
    s/[^0-9,]+//g;
    return $_;
}