And to add some error checking,

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