#!perl -w
use strict;

open(FILE, "< csv_filename") or die "Couldn't open file, $!";

while(<FILE>) {
   chomp;  # Remove the newline
   my ($var1, $var2, $var3) = split /,/;
   print $var1," ",$var2," ",$var3,"\n";
}
exit;