note
Punitha
<p>Try like this,</p>
<c>
my ($colno) = $_ =~ /<csp c="(\d+)">/;
my $csp;
for my $i (1..$colno)
{
$csp = $csp."<colspec colnum=\"$i\" colname=\"col$i\"\/>\n";
}
$_=~s/<csp c=\"$colno\">/$csp/g;
print "$_";
</c>
<p>Punitha</p>
726304
726304