# $_= ~ /ssId=\s*?(\S+)/
$_ =~ /ssId=\s*?(\S+)/

#if ($_= ~ /subSnpClass=\s*?(\S+)/)
if ($_ =~ /subSnpClass=\s*?(\S+)/)

##</code><code>##

RS_SNPs	subSnpClass3931
	snp
76536062
	snp

##</code><code>##

#!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";
  }
  
}