[Moscow.pm] Парсинг вот такой вот структуры

[Pavel]

Всем БОЛЬШОЕ спасибо за помощь,
просмотрел предложенные модули, но пока больше всего понравилась идея с
регэкспом + подключил JSON,
и на данный момент получается что-то в этом роде:

$line =~ s/ID=(?=[^}]+=[^}]+})//g;
$line =~ s/NAME//g;
$line =~s/=/=>/g;
$line =~s/([\]}])/$1,/g;
eval '$struct = {' . $line . '};';

my $json_text   = $json->encode($struct);


{"TYPE2":[],"TYPE1":[{"One":"Один айди"},{"Two":"Айди номер
два"},{"Some":"Еще что-то"},{"Yeah":"Вот так вот"}]}