Select Code to Download

<table>
<tr><td>a</td><td>b</td><td>c</td><td>d</td><td>e</td><td>f</td></tr>
<tbody>
...
</tbody>
</table>

#!/usr/bin/env perl
use 5.16.0;
use utf8;
...
say "$out_string";

$

------------string inserted
"<table>\n<tr><td>a</td><td>b</td><td>c</td><td>d</td><td>e</td><td>f<
+/td></tr>\n<tbody>\n<tr><td>a</td><td>q</td><td>c</td><td>d</td><td>e
+</td><td>f</td></tr>\n<tr><td>a</td><td>b</td><td>c</td><td>d</td><td
+>e</td><td>&#x2588;</td></tr>\n<tr><td>&#x2588;</td><td>b</td><td>c</
+td><td>d</td><td>e</td><td>f</td></tr>\n</tbody>\n</table>\n"
------------string to be inserted ^^^
Can't use string ("<table>
<tr><td>a</td><td>b</td>"...) as a SCALAR ref while "strict refs" in u
+se at template_stuff/html9.pm line 150.
$

say "------------string inserted";
  use Text::Table::HTML;
  use Data::Dump;
...
  say "------------string to be inserted ^^^";

  print $fh $$string;