($r=$h=$r=helloworld)=~s/./[$&?]/g;
<>;
while(<>){
	$_=<>;
	@a=();
	/$r(?{push@a,"$`$h$'"=~y!?!a!r})^/;
	printf@a?sort@a:-1 .$/;
}