use Magic;
tilt() if ($str =~ m/$Magic::selfish/ 
	&& ${str}abc !~ m/$Magic::selfish/);
tilt() if ($Magic::selfish =~ m/$str/ 
	&& ${Magic::selfish}abc !~ m/$str/);