Select Code to Download

use strict;
use warnings;
...
1 while ($str =~ /(\w+)\s+(\d+)(?{if($2 > $biggest) {$result=[$1, $2];
+ $biggest=$2}})/gx);

print "$result->[0] $result->[1]";

EFEAF 1090