Select Code to Download

while (<>) {
@array = split(/,/, $line);
}

121212, "Simpson, Bart", springfield

121212, Simpson Bart, springfield

open (SYST, "$upload_dir/$filename");
while (defined ($line = <SYST>)) {
...
        }
}
close (SYST);

line = 121212, "Simpson, Bart", Springfield<br>

...

121212, Simpson_ Bart, Sprigfield
}