my $string = "something";
format STDOUT=
@<<<<
$string
.
write;        #"somet" and the rest is chopped away.