Select Code to Download

my $word;
{
...
  ( $word ) = $whole_file =~ /TARGET\s*=\s*(\S+)/;
}
# $word is now set to our value or undefined