Select Code to Download

    text with spaces 1    text with spaces 2                text with 
+spaces 3                text with spaces 4        line 0
text with spaces 1    text with spaces 2            text with spaces 3
+            text with spaces 4                line 1
text with spaces 1            text with spaces 2    text with spaces 3
+        text with spaces 4    line 2
text with spaces 1                text with spaces 2                te
+xt with spaces 3    text with spaces 4            line 3

1 4 4 2
1 3 3 4
3 1 2 1
4 4 1 3

text with spaces 1                text with spaces 2                te
+xt with spaces 3                text with spaces 4                lin
+e 0
text with spaces 1                text with spaces 2                te
+xt with spaces 3                text with spaces 4                lin
+e 1
text with spaces 1                text with spaces 2                te
+xt with spaces 3                text with spaces 4                lin
+e 2
text with spaces 1                text with spaces 2                te
+xt with spaces 3                text with spaces 4                lin
+e 3

    text with spaces 1    text with spaces 2            text with spac
+es 3            text with spaces 4        line 0
text with spaces 1    text with spaces 2            text with spaces 3
+                    text with spaces 4            line 1
text with spaces 1        text with spaces 2                text with 
+spaces 3        text with spaces 4    line 2
text with spaces 1    text with spaces 2    text with spaces 3    text
+ with spaces 4        line 3

1 3 3 2
1 3 5 3
2 4 2 1
1 1 1 2

text with spaces 1    text with spaces 2    text with spaces 3    text
+ with spaces 4    line 0
text with spaces 1    text with spaces 2    text with spaces 3    text
+ with spaces 4    line 1
text with spaces 1    text with spaces 2    text with spaces 3    text
+ with spaces 4    line 2
text with spaces 1    text with spaces 2    text with spaces 3    text
+ with spaces 4    line 3

0 1 19 20 38 41 59 62 80 82
18 19 37 40 58 63 81 84
18 20 38 42 60 62 80 81
18 19 37 38 56 57 75 77

# printing max number of TABs for each of the columns begin ($max_b) a
+nd end ($max_e)
print "max begin\t: " ;
...
for ($x=0;$x<=$nbr_tab;$x++) {
    print $max_e[$x], ' ';
}

max begin    : 18 38 60 81 80  
max end        : 20 42 63 84 82

Bob, the rabbit jump above the fence    Jack, the cat hid under the po
+rch of the red house        Rex, the dog ran after Jack    the birds 
+fly        When the world is reduced to a single dark wood for our tw
+o pairs of dazzled eyes    to a musical house for our clear understan
+ding        then I shall find you
When we are very strong        who draws back?        very happy      
+  who collapses from ridicule    When we are very bad        what can
+ they do to us.
The taste of ashes in the air    the smell of wood sweating in the hea
+rth        steeped flowers                the devastation of paths   
+     drizzle over the canals in the fields        why not already pla
+ythings and incense?
Arousing a pleasant taste of Chinese ink    a black powder gently rain
+s on my night    I lower the jets of the chandelier        throw myse
+lf on the bed        and turning toward thedark        I see you     
+   O my daughters and queens!

Bob, the rabbit jump above the fence        Jack, the cat hid under th
+e porch of the red house    Rex, the dog ran after Jack        the bi
+rds fly            When the world is reduced to a single dark wood fo
+r our two pairs of dazzled eyes    to a musical house for our clear u
+nderstanding    then I shall find you
When we are very strong                who draws back?                
+        very happy                who collapses from ridicule    When
+ we are very bad                                    what can they do 
+to us.
The taste of ashes in the air            the smell of wood sweating in
+ the hearth        steeped flowers                the devastation of 
+paths    drizzle over the canals in the fields                       
+     why not already playthings and incense?
Arousing a pleasant taste of Chinese ink    a black powder gently rain
+s on my night            I lower the jets of the chandelier    throw 
+myself on the bed        and turning toward thedark                  
+              I see you                    O my daughters and queens!

$max_b[$max_tab] = $-[0] if $max_b[$max_tab] < $-[0] ;
$max_e[$max_tab] = $+[0] if $max_e[$max_tab] < $+[0] ;

print $out_fh $_ =~ y/\t/\t/rs;

print $out_fh $_ =~ y/\t/\t{3}/rs;

print $out_fh $_ =~ tr/\t/\t/rs;

my $infile = 'pm_11140114_tab_align_even.dat';
my $outfile = 'pm_11140114_tab_align_even.out';

my $infile =  $ARGV[0];
my $outfile =  $ARGV[1];

close $in_fh;
close $out_fh;

my ($max_tab,$nbr_tab,$valid_line,@max_b,@max_e);

while(<$in_fh>) { ... }

while(<$in_fh>) { ... }

seek $in_fh,0,0;

# use 5.014;
# use warnings;
# use autodie;

Parentheses missing around "my" list at 02-00.pl line 9.
Global symbol "$nbr_tab" requires explicit package name (did you forge
+t to declare "my $nbr_tab"?) at 02-00.pl line 9.
...
Global symbol "$nbr_tab" requires explicit package name (did you forge
+t to declare "my $nbr_tab"?) at 02-00.pl line 20.
Global symbol "$nbr_tab" requires explicit package name (did you forge
+t to declare "my $nbr_tab"?) at 02-00.pl line 20.
Execution of 02-00.pl aborted due to compilation errors.

print $out_fh $_ =~ y/\t/\t/rs;

# use 5.014;
# use warnings;
...
    }
close $in_fh;
close $out_fh;