my( $foundWord ) = $string =~ /(need)/; 

##</code><code>##

my $foundWord = $string =~ /need/ ? 'need ' : undef;