Select Code to Download

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

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

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

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