@text = "g total";

##</code><code>##

   $ntext = (split (/;/)) [0];
   $ntext =~ s/n01//g;

##</code><code>##

   ($ntext) = /^n01([^;]+)/;
   # or /^n01(.+?);/;

##</code><code>##

   print OUT "$_";

##</code><code>##

   print OUT;