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