어디가 파일로부터 입력받는 부분인지 모르겠습니다.

if($F{\'series\'} eq ""){$F{\'series\'}=0;}
if($F{\'kind\'} ne "" && $F{\'kind\'}!=0){$F{\'series\'}=99;}
if($F{\'sstr\'} ne ""){$F{\'series\'}=99;$F{\'kind\'}=0;}

if($F{\'sstr\'} ne ""){  #@series <- 좌측으로 표시하는 카드
 $cou=0;
 for($i=0;$i<$#c_name+1;$i++){
  if($c_name[$i]=~/$F{\'sstr\'}/){$series[$cou]=$i;$cou++;}
 }
}
elsif($F{\'series\'} ne "99"){@series=split(/,/,$ser[$F{\'series\'}]);}
else{for($i=0;$i<$#c_name+1;$i++){if($c_name[$i] ne ""){$series[$i]=$i;}}}

undef(@series_tmp);
if($F{\'kind\'}==0){}
elsif($F{\'kind\'}==44){@series =@ava;}
else{
 for($i=0;$i<$#series+1;$i++){
  $j =$series[$i];
  if($c_zokusei[$j] ne "마" && $c_zokusei[$j] ne "함정"){$mst_card=1;}
  else{$mst_card=0;}

  if($F{\'kind\'}==1){if($mst_card==1){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==2){if($mst_card==1 && $c_lv[$j]>4){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==3){if($mst_card==1 && $c_lv[$j]<5){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==4){if($mst_card==1 && $c_syokan[$j]==1){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==5){if($mst_card==1 && $c_syokan[$j]==2){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==6){if($mst_card==1 && $c_syokan[$j]==3){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==46){if($mst_card==1 && $c_syokan[$j]==4){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==47){if($mst_card==1 && $c_syokan[$j]==6){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==51){if($mst_card==1 && $c_syokan[$j]==7){push(series_tmp,$j);}}
  #elsif($c_syokan[$j]==7)
  elsif($F{\'kind\'}==48){if($mst_card==1 && ($c_koka[$j]==2 || $c_koka[$j]==7)){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==7){if($mst_card==1 && $c_koka[$j] ne ""){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==8){if($mst_card==1 && $c_zokusei[$j] eq "어둠"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==9){if($mst_card==1 && $c_zokusei[$j] eq "빛"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==10){if($mst_card==1 && $c_zokusei[$j] eq "땅"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==11){if($mst_card==1 && $c_zokusei[$j] eq "물"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==12){if($mst_card==1 && $c_zokusei[$j] eq "화염"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==13){if($mst_card==1 && $c_zokusei[$j] eq "바람"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==14){if($mst_card==1 && $c_syuzoku[$j] eq "드래곤"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==15){if($mst_card==1 && $c_syuzoku[$j] eq "비행야수"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==16){if($mst_card==1 && $c_syuzoku[$j] eq "해룡"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==17){if($mst_card==1 && $c_syuzoku[$j] eq "어류"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==18){if($mst_card==1 && $c_syuzoku[$j] eq "물"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==19){if($mst_card==1 && $c_syuzoku[$j] eq "전사"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==20){if($mst_card==1 && $c_syuzoku[$j] eq "야수전사"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==21){if($mst_card==1 && $c_syuzoku[$j] eq "야수"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==22){if($mst_card==1 && $c_syuzoku[$j] eq "곤충"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==23){if($mst_card==1 && $c_syuzoku[$j] eq "식물"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==24){if($mst_card==1 && $c_syuzoku[$j] eq "공룡"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==25){if($mst_card==1 && $c_syuzoku[$j] eq "암석"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==26){if($mst_card==1 && $c_syuzoku[$j] eq "언데드"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==27){if($mst_card==1 && $c_syuzoku[$j] eq "악마"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==28){if($mst_card==1 && $c_syuzoku[$j] eq "마법사"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==29){if($mst_card==1 && $c_syuzoku[$j] eq "천사"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==30){if($mst_card==1 && $c_syuzoku[$j] eq "화염"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==31){if($mst_card==1 && $c_syuzoku[$j] eq "기계"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==32){if($mst_card==1 && $c_syuzoku[$j] eq "파충류"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==45){if($mst_card==1 && $c_syuzoku[$j] eq "번개"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==33){if($c_zokusei[$j] eq "마"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==34){if($c_zokusei[$j] eq "마" && $c_syuzoku[$j] eq "통상"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==35){if($c_zokusei[$j] eq "마" && $c_syuzoku[$j] eq "장비"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==36){if($c_zokusei[$j] eq "마" && $c_syuzoku[$j] eq "필드"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==37){if($c_zokusei[$j] eq "마" && $c_syuzoku[$j] eq "지속 "){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==38){if($c_zokusei[$j] eq "마" && $c_syuzoku[$j] eq "속공"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==39){if($c_zokusei[$j] eq "마" && $c_syuzoku[$j] eq "의식"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==40){if($c_zokusei[$j] eq "함정"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==41){if($c_zokusei[$j] eq "함정" && $c_syuzoku[$j] eq "통상"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==42){if($c_zokusei[$j] eq "함정" && $c_syuzoku[$j] eq "지속"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==43){if($c_zokusei[$j] eq "함정" && $c_syuzoku[$j] eq "카운터"){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==49){if(($c_koka[$j] ne "" || $mst_card==0)&& !(grep(/^$j$/,@ava))){push(series_tmp,$j);}}
  elsif($F{\'kind\'}==50){if(grep(/^$j$/,@seigen)|| grep(/^$j$/,@junseigen)){push(series_tmp,$j);}}
 }
 @series =@series_tmp;
}