Re: remove spaces after join operation

[2teez]

Hi lakssredhar,
A suggestions:
I need to print the column1 as a row outside the while loop so i used

...
push @first_sentence,$arr[0];
}print join ' ',@first_sentence;

I was kind of thinking, why, push all the column 1 into an array variable, in work on the array outside the while loop.
what of if all work were done in the while loop? Like so:

use warnings;
use strict;

my $line;

while (<DATA>) {
    my $part = (split)[0];
    if (/[.()]/) {
        $line =~ s/\s*$//;
        $line .= $part;
    }
    else {
        $line .= $part . q[ ];
    }
}

print $line;

__DATA__ 
i o
am  o
2  o
(  o
but o
)  o
.  o
how o