Report Perl

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