if($text =~ /!project remove/i){
	open(REMOVE, ">project.pjt") || print $sock "PRIVMSG #channel :Sorry $nick, I can't remove a project.";
		$remove = <REMOVE>;
		$text =~ s/!project remove //gi;
		$text = "$text; ";
		$remove =~ s/$text//gi;
		print $sock "PRIVMSG #channel :$remove";
		print REMOVE "$remove";
	close REMOVE;
}