#!/usr/bin/perl
use warnings;
use strict;
my $name = 'Tom';
my $letters = 'AAA';
my $phone = '(111)111-1111';
my $itemA = <<'DONE';
Line 1
Line 2.
DONE
write();
$name = 'Jack';
$letters = 'AAA';
$phone = '(222)222-2222';
$itemA = <<'DONE';
Line 3
Line 4
Line 5
DONE
write();
$name = 'Mary';
$letters = 'CCC';
$phone = '';
$itemA = 'my item.';
write();
format STDOUT =
Name: @<<<<<<<<<<<<<<<<<<< itemA: ^<<<<<<<<<<<<<<<<<<<<<
$name, $itemA
letters: @<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<
$letters, $itemA
phone: @|||||||||||| ^<<<<<<<<<<<<<<<<<<<<<<<<~
$phone, $itemA
~ ^<<<<<<<<<<<<<<<<<<<<<<<<
$itemA
~ ^<<<<<<<<<<<<<<<<<<<<<<<<
$itemA
~ ^<<<<<<<<<<<<<<<<<<<<<...
$itemA
.