my $exmno = 0;
while(<>) {
    s/^<exm>/'<exm num ='.++$exmno.'>'/ or $exmno = 0;
    print $_;
}