$_ =~ s/<csp c="(\d+)">/"<colspec colnum=\"1\" colname=\"col1\"\/>" x $1/egs;

##</code><code>##

$_ =~ s[<csp c="(\d+)">][qq(<colspec colnum="1" colname="col1"/>) x $1]egsx;