Re^3: Separate column results?!

[perlnoobster]

update: I've changed it to the following:

    print "\n$columns[0]\t$columns[1]";

works fine now :) however there is a blank space between the lines the chomp function doesn't seem to work?

#!/usr/bin/perl  

use warnings;
use strict;

my $PHONE_FILE =  'phones.txt';

open(PHONE_FILE, $PHONE_FILE) or die "Can't open file: $!\n";
my @lines = <PHONE_FILE>;


foreach $_ (@lines) {
    

    my @columns = split('\t', $_);

            my $col1 = $columns[0];
            my $col2 = $columns[1];
            chomp $col1;
            chomp $col2;
            
            print "\n$columns[0]\t$columns[1]";
            
        }

??

[perlnoobster]

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]";
            
        }

[philiprbrenan]

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;

Produces:

111	aaa
222	ccc
333	eee