Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        $somehash{$2} = $1;
    }
}

/^            # Anchor to beginning of string
  (           # Capture to $1
...
    [a-zA-Z]+ #     One or more letters
  )           #
$/x;          # Anchor to end of string

while (<FILE>) {
    chomp;
    my ($value, $key) = (split /\s/, $_)[0,3];
    $somehash{$key}   = $value;
}