#!/usr/bin/perl
use warnings;
use strict;
my $name = 'Mary';
my $letters = 'SWM';
my $phone = '(111)111-2222';
my $itemA = <<'DONE';
lINE 1
Line 2
Line 3
DONE
write();
$name = 'Jack';
$letters = 'EEE';
$phone = '(222)222-1111';
$itemA = <<'DONE';
Line 1
Line 2
Line 3
DONE
write();
$name = 'Tom';
$letters = 'SSS';
$phone = '';
$itemA = 'itemA';
write();
format STDOUT =
Name: @<<<<<<<<<<<<<<<<<<< letters: @<<<<< phone: @<<<<<<<<<<<<
$name, $letters, $phone
@*
$itemA
.