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