Select Code to Download

       $<digits>
               Contains the subpattern from the corresponding set
               of parentheses in the last pattern matched, not
               counting patterns matched in nested blocks that
               have been exited already.  (Mnemonic: like
               \digits.)  These variables are all read-only.

my $value = 'not found';
while (<FILE>) {
    $value = $1, last if /TARGET\s?=\s?(\S*)\s/;
}