#!perl
use strict;
use warnings;

my $Gene    = 'ds_chY.xml';
my $outfile = 'ID.txt';

open my $out,'>',$outfile or die "Could not open file '$outfile' $!";
print $out "RS_SNPs\tsubSnpClass\n";

open my $in,'<',$Gene or die "Could not open file '$Gene' $!";
while (<$in>){
  
  if ( /ssId=\s*"([^"]+)/ ){
    print $out "$1\t";
  }
  
  if ( /subSnpClass=\s*"([^"]+)/ ){
    print $out "$1\n";
  }
  
}