if ($mc_value) { print "\t" . ' ' x length $p_value;} $mc_value=$line; print "\t$mc_value"; #### } elsif ($line=~/\bProcessing\s/) { $line=~s/\bProcessing\s\d+\.tx\.\d+: //; $u_value = $line; #### } elsif ($line=~s/\bProcessing\s\d+\.tx\.\d+: //){ $u_value = $line;