#!/usr/bin/perl -w

use strict;

my $line = 0;
while (<>) {
    #chomp;
    #unless ($_) {print "\n"; next;}
    #$line++;
    s/\.\.\.\./.*/g;
    s/<-- extensibility element -->( \*)?/.*/g;
    s/\"//g;
    s/([a-zA-Z_0-9:]+=[a-zA-Z_0-9:]+)\?/($1)?/g;
    print;
}