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