programming-examples/perl/Report/Assign $~ to format.pl

format standardformat =
@||||||||||||||||||||||||||
$text
.
$text = "Hello!";
$~ = standardformat;
write;