my @line = split (/\s*,\s*/,$line);