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