format SIMPLE_TOP=
_______________________________________________________________________
@|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
"TITLE"
_______________________________________________________________________
@|||||||||||||||||... |@||||||||... @||||||||... |@||||||||||||||||||...
"Variable1","Variable2","Variable3","Variable3"
_______________________________________________________________________
.

format SIMPLE=
@<<<<<<<<<<<<<<<<<... |@||||||||... @||||||||... |@||||||||||||||||||...
	$varible,   $varible, $varible,  $varible
_______________________________________________________________________
.

##</code><code>##

use Carp;
    sub swrite {
	croak "usage: swrite PICTURE ARGS" unless @_;
	my $format = shift;
	$^A = "";
	formline($format,@_);
	return $^A;
    }
    $string = swrite(<<'END', 1, 2, 3);
 Check me out
 @<<<  @|||  @>>>
 END
    print $string;