Select Code to Download

  @text = "g total";

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

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

   print OUT "$_";

   print OUT;