use Text::CSV; 
$csv = Text::CSV->new ( { sep_char => " " }); 
my $file = "file"; 
open (CSV, "<", $file) or die $!; 
while (<CSV>) { 
chomp; 
        if ($csv->parse($_)) { 
            foreach my $col ($csv->fields()){ 
              print "col: " . $col. "\n"; 
            } 
        } else { 
            my $err = $csv->error_input; 
            print "Failed to parse line: $err"; 
        } 
    } 
close(CSV);