Select Code to Download

use strict;
use warnings;
...
{chart { {1 { {title title_1} {xlable X-lab} {ylable Y-lab}
{description desc1} {type line} {series { {1 { {x_data {1 2 3 4 5} }
{y_data {20 90 60 50 30}} } } } } } } } }

while ($text =~ m/\G([\w-]+|.)/sg) {
    my $tok = $1;
...
        }
    }
}

{
  'chart' => [
...
               }
             ]
}