#!/usr/bin/perl

format FOO =
This is @|||||||||||||
$foo
.

open(FOO,">", \$str) or die;
for $foo (qw(foo bar baz)) {
   write FOO;
}
close FOO;
print $str;