my @data = map { s/[^,]+_??//g; s/^,|,$//g; s/,,/,/g; $_ } $text =~ m{\[([^\]]+)\]}g;