my( $word1, $word2 ) = ( grep $_, split /[^A-Za-z0-9]+/, $message )[0,1]