perl -00 -ne 'use v5.10; say $& if (/kid.He/s);' temp
kid
He