my @row = ('col1 : line1
col2 : line2',
'col2',
'col3 f1 col3 f2',
'col4',
'col5:line1
col5:line2',
'coll6 : line1,line1
coll6 : line2,line2
coll6 : line3,line3
coll6 : line4,line4'
);

my $f = "format = \n"
        . ('^*' . '|') x scalar(@row) . "~~\n"
        . '@row' . "\n"
        . ".\n";
eval($f);

write;