$^A = "";
formline(<<'OUTPUT_TABLE', $1, $2);
@<<<<<<<      @<<<<<<<<<<<<
~@<<<<<<<      @<<<<<<<<<<<<
OUTPUT_TABLE
  
$out .= $^A;

print $out...