Select Code to Download

line1
line2
...
n01chocoloate;more stuff
n01vanilla;more stuff
etc...

line1
line2
...
g total choco vanil
g ----- ----- -----
p    x     x     x

g total chocolate vanilla
g ----- --------- -------
p    x         x       x

#!/usr/bin/perl
use warnings;                       
...
n10total
n01chocoloate;more stuff
n01vanilla;more stuff

$x = length ($gtext);

$ftext = substr($ntext,0,$x);