sub swrite {
  local $^A;
  formline( $_[0], @_[ 1 .. $#_ ] );
  return $^A;
}

my $output = swrite(<<FORM, 1 .. 5 );
@<<<@|||@>>>@|||@<<<
FORM

print "format: $output", 

__output__

format: 1    2     3 4  5