$test="Hi.";

$~="TEST";
write;

format TEST=
@<<<<<<<<<<<<<<<<<<<
$test
.