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