while ( my $line = <$filelog> ) {

##</code><code>##

$ort_log->[ $site_index ] = substr $line, 2, 1;

##</code><code>##

        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
        }

##</code><code>##

        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++;
        }