>perl -wMstrict -le
"my $line = 'Id=\"123\" foo >987<';
 my ($Rkey_id, $Rkey_val) = $line =~ /Id=\"(.*?)\".*?>(.*?)</;
 print $Rkey_id;
 print $Rkey_val;
"
123
987