open FILE, $somefile or die $!;
# set input record separator
$/ = "\n\n";  # to this
$/ = q/"\n"/;  # or ?? this 
while(<FILE>){
    ($a,$b,$c,$d) = split ',';
}