my %data;

while (<DATA>) {
    while (/\b([A-Z]{3})\s+\d+(?:\.\d+)?\(\s*(\d+)\)/g) {
        $data{$1} = $2;
    }
}

print $data{UAU};    # prints 206846
[download]