Select Code to Download

sub{$h{$1} = $2 if /(\d+)\n\n(\w+)/}->() foreach <DATA>;

/(\d+)\n+(\w+)/ and $h{$1} = $2 for <DATA>;