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

##</code><code>##