Help for this page

Select Code to Download

Select or download this

while(<DATA>) {
     ($var1, $var2, ...) = split(/,/);
     ...
}