while (<XMLFILE>) {
#  ... do stuff ...
    print "\cM";
    print $ctr;
}