#!/usr/bin/perl -w

use strict;

my $text1 = "A";
my $text2 = "B";
$~ = COLUMNS;
write;

exit;

format COLUMNS =
@<<<<<<@>>>>>>>
$text1,$text2
.