Report Perl

format STDOUT =
@*
$text
.
$text = "Here\nis\nthe\ntext.";
write;