map { [$_, split('\|', $_)] } split(/\n/, $str);