if ($newt =~ /chased by alien queen/i) {
	RIPLEY: {
		use HEAVYLOADER;
		kill $alienqueen || undef $newt;
		open (AIRLOCK, ">>hackneyedstoryidea.dat") || last RIPLEY;
	}
}