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

my $text1 = "A";
my $text2 = "B";

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

$~ = "COLUMNS"; # note the quotes
write;