Select Code to Download

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

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