$ perl -we '
> ( $dg, $vo ) = map { map { chomp; lc } scalar <> } 1 .. 2;
> print qq{$dg, $vo\n};
> print q{-} x 15, qq{\n};
> print for <>;' zzzz
aaaa, bbbb
---------------
CCCC
DDDD
EEEE
$