$line =~ /Id="(.*?)".*?>(.*?)</)
my $Rkey_id = $1;
my $Rkey_val = $2;