perl -E '$str=do{local($/);<>}; say $& if $str =~ /kid.He/s;' temp
kid
He