in reply to Re^3: Separate column results?!
in thread Separate column results?!

i got it to work :) 
foreach $_ (@lines) {
    

    my @columns = split('\t', $_);
            chomp @columns;
            my $col1 = $columns[0];
            my $col2 = $columns[1];
            chomp $col1;
            chomp $col2;
            
            print "\n$columns[0]\t$columns[1]";
            
        }

[download]

Replies are listed 'Best First'.
Re^5: Separate column results?!
by philiprbrenan (Monk) on Aug 29, 2012 at 10:09 UTC

    Or perhaps:

    use feature ":5.14";
use warnings FATAL => qw(all);
use strict;

my @lines = split /\n/, << 'END';
111 aaa bbb
222 ccc ddd
333 eee fff
END

say join "\t", @{[split]}[0,1] for @lines;

    [download]

    Produces:

    111	aaa
222	ccc
333	eee
[reply]
[d/l]

In Section Seekers of Perl Wisdom