my ( $target ) = ( $string =~ /TARGET=\s*(\S+)/ );