$ 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 () { $value = $1, last if /TARGET\s?=\s?(\S*)\s/; }