my @linx = split(/,/,$flnx);

##</code><code>##

#my $something = split(/\.\n\d+: /,join(',',@somearray));