my $s="TARGET=toto"; 
my ($word)= ($s=~/TARGET\s*=\s*(\w+)/);
print "word: $word\n";'