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

But you should really read the doc (perldoc perlre) or books like the Camel if you know that little and want to use Perl.