Select Code to Download

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