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