Please give me some tips
1. use strict; use warnings;. Always. Doing so will help make your life easier when writing code.

2. When posting code on PM, using the __DATA__ handle makes it easier for others to reproduce what your seeing. One file, one click. This in turn makes it easier for others to respond and assist you.

in the 2nd row, I am not sure how to increment the column Number cNum based on the previous column span's value That's one way you could do it, though in my opinion, not the best approach...
(Since you asked for tips, I'll give you a hint and leave you to work it out.) How about this: (see comment)

#!/usr/bin/perl
use strict;
use warnings;

{
    local $/='<tr>';
    while (my $line = <DATA>){
        my $i=0;

        while ($line =~ m/<tc>/) {
            $line =~ s!<tc>!'<tc cNum="'.++$i.'">'!ie;
            #why not insert another substitution in here that handles 
+the case <tc (colspan="\d+")> ...
        }
        print $line;
    }
}

__DATA__
<tr><tc>1</tc><tc>2</tc><tc>3</tc></tr>
<tr><tc colspan="2">1and2</tc><tc>3</tc></tr>
<tr><tc>1</tc><tc colspan="2">2and3</tc></tr>
<tr><tc>1</tc><tc>2</tc><tc>3</tc></tr>

[download]

In reply to Re: how to loop through? by desemondo
in thread how to loop through? by texuser74

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.