while (<IN>) {
   s{(<tgroup cols="(.*?)">)}{
      "$1\n" .
      (map { "<colspec colnum='$_' colname='$_'/>\n" } 1..$2)
   }eg;
   print OUT;
}