#!/usr/bin/perl -w

use strict;

my @a = qw(* *** ***** ******* ********* *);

formline(('@'.('|'x72)."\n")x@a, @a);
print $^A;