http://www.perlmonks.org?node_id=967199


in reply to Extracting Data from .txt file

my %data;

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

print $data{UAU};    # prints 206846

[download]

In Section Seekers of Perl Wisdom