my ($Rkey_id, $Rkey_val) = $line =~ /Id="(.*?)".*?>(.*?)</
    or die("Foo!\n");