#! /usr/bin/perl -w
use strict;

for my $val (qw/a ab abc abcd/) {

format =
@||||
$val
.

write \*STDOUT;
}