$_ =~ s/<exm>/'<exm num="'.$exmno++.'">'/egs;
if ($_ != /<exm>/g) {$exmno=0}