PERL SPLIT FUNCTION EXAMPLE

$file = 'input.csv';

open (F, $file) || die ("Could not open $file!");

while ($line = )
{
($field1,$field2,$field3,$field4) = split ',', $line;
print "$field1 : $field2 : $field3 : $field4";
}

close (F);