while ($string =~ s/<TR.+?([^\)>]+\))<.+?(\d+\.\d+)//s) {
	print "$1 -- $2 \n";
}

<TR    <--   locates the start of each row.
.+?    <--   will slurp up lots of chars, but not greedy
([^\)>]+\)) <-- will grab the currency name, $1
<.+?   <--   slurp more, not greedy
(\d+\.\d+)  <-- will grab the currency value, $2