#!/usr/bin/perl
use strict;
use warnings;

my $file = "c:/ubuntu/regular.txt";
#open OUT,">C:/output/filded_processed.txt";
open my $fh, "<", $file or die "Unable to open $file: $!";
my($u_value, $p_value, $mc_value) = (undef) x 3;
while (my $line=<$fh>) {
    if ($line=~/\n\n\n/){
        ($u_value, $p_value, $mc_value) = (undef) x 3;
        print "\n";
    } elsif ($line=~/\bProcessing\s/) {
       $line=~s/\bProcessing\s\d+\.tx\.\d+: //;
       $u_value = $line;
        print "\n$u_value\n";
        undef $p_value;
    } elsif ($line=~/\bPhrase/) {
        $line=~s/\bPhrase: //;
        $line=~s/\"//g;
        if ($p_value) {
        print "\n" . ' ' x length $u_value;}
        $p_value=$line;
        print "\t$p_value";
        undef $mc_value;
     } elsif ($line=~/\s\s/ ) {
        if ($mc_value) {
        print "\t" . ' ' x length $p_value;}
        $mc_value=$line;
        print "\t$mc_value";
       } else {
        #die "Unexpected line format encountered, $file, @data";
    }
}
close $fh;
[download]

why ... $mc_value being printed ... after $p_value and not infront ...

That's the order you are printing in, isn't it?

       if ($mc_value) {
        print "\t" . ' ' x length $p_value;}
        $mc_value=$line;
        print "\t$mc_value";
[download]


should I put OUT infront of every print

Yes, or you can select OUT; before your first print statement. That selects OUT as the default filehandle for output.


Another suggestion. You have instances like this:

     } elsif ($line=~/\bProcessing\s/) {
            $line=~s/\bProcessing\s\d+\.tx\.\d+: //;
            $u_value = $line;
[download]

Which could be simplified:

     } elsif ($line=~s/\bProcessing\s\d+\.tx\.\d+: //){
            $u_value = $line;
[download]




And you could simplify throughout with $_ instead of $line, but that's a matter of preference.

yes, that's the order and I get
$u_value
<tab>$p_value
<tab>$mc_value

while I want to get
$u_value
<tab>$p_value<tab>$mc_value

Thanks

I apologize to bug you again, how can I print $p_value only if there is $mc_value in front of it? I tried (if $mc_value ne "") before print $p-value but obviously it doesn't work since the value of $mc_value is assigned after I print $p_value...