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

.
write;