Help for this page
@text = "g total";
$ntext = (split (/;/)) [0]; $ntext =~ s/n01//g;
($ntext) = /^n01([^;]+)/; # or /^n01(.+?);/;
print OUT "$_";
print OUT;