#!/bin/perl
$name="Jack";
print "What is your favorite? ";
$quote = ;
format STDOUT=
Play: @<<<<<<<<<< Quotation: ^<<<<<<<<<<<<<<<<<<
$name, $quote
^<<<<<<<<<<<<<<<<<<
$quote
^<<<<<<<<<<<<<<<<<<
$quote
~ ^<<<<<<<<<<<<<<<<<<
$quote
.
write;