my $format = q~
Check me out
@<<< @||| @>>>
~;

my $string = swrite($format,1,2,3);
print $string;

sub swrite{
  my $format = shift;
  $^A = "";
  formline($format,@_);
  return $^A;
}