#!/usr/bin/perl

use Data::Dumper;
use strict;
use warnings;

local $/;
my $data=<DATA>;
$data=~s{\[}{[qw(}sg;
$data=~s{\]}{)],}sg;
eval '$data=\['.$data.']';
warn Data::Dumper->Dump([\$data],[qw(*data)]).' ';
__DATA__
[
abc
def
]
[
ghi
jkl
mno
]