#!/usr/local/bin/perl @quotation = <STDIN>; $quotation = join("", @quotation); $~ = "QUOTATION"; write; format QUOTATION = Quotation for the day: ----------------------------- ~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $quotation ----------------------------- .