#!/usr/bin/env perl

use warnings;

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

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

print $f, "\n";

my @row = ('line1
line3
',
'line4
line5
line6
line7
',
'line8'
);

write;
exit