$exmno=0    unless s/<exm>/'<exm num="'.++$exmno.'">'/egs;