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