#!/usr/bin/perl use warnings; use strict; my $greeting = 'Hello'; my $planet = 'world'; write(); $greeting = 'Greetings'; $planet = 'Mars'; write(); $greeting = 'Howdy'; $planet = 'Pluto'; write(); format STDOUT = I would like to say @<<<<<<<<< @<<<<<<<! $greeting, $planet .