#!/usr/bin/perl

use strict;
use warnings;

my @elems = qw(left centered right);

format =
------------------------------------------
@<<<<<<<<<<<<< @||||||||||| @>>>>>>>>>>>>>
@elems
------------------------------------------
.

write;