#!/usr/bin/perl

use strict;

my $l = 30;
my $o = ['A'..'Z'];
my $v = $o->[10].$o->[4].$o->[8].$o->[19].$o->[7].' &';
my $e = $o->[18].$o->[14].$o->[10].$o->[20].$o->[13].$o->[13].$o->[0];

print "\t*" . "-" x $l .                            "*\n";
print "\t*" . " " x $l .                            "*\n";
print "\t*" . " " x ($l-20) . $v . " " x ($l-17) .  "*\n";
print "\t*" . " " x ($l-20) . $e . " " x ($l-17) .  "*\n";
print "\t*"                           . " " x $l .  "*\n";
print "\t*"                           . "-" x $l .  "*\n";