Help for this page
my @linx = split(/,/,$flnx);
#my $something = split(/\.\n\d+: /,join(',',@somearray));