if ( $variable !~ /^<exm>/ ) { $exmno = 0 );