#!/usr/bin/perl -w

use strict;

my $temp;
my $format = '@||| @||| @|||';

my $t1 = '1';
my $t2 = '2';
my $t3 = '3';

# Create the format
formline($format, $t1, $t2, $t3);

$temp = $^A; # Store the accumulator
$^A   = '';  # Clear the accumulator

print $temp;