#!/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 .