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