if ((scalar @$ort_log[$site_index])==scalar '+'){ @$filelog[$site_index]=substr ($line, 4, -1); $site_index=$site_index+1; }else{ @$filelog[$site_index]=(substr ($line, 4, -1))+4; $site_index=$site_index+1 }