...; print $foo =~ s/(?=.*(hello)).*/$1/sr;