small perl coding problem

[kadrith]

This worked for me; I didn't have a Diarra Windrunner so I simply ran it on one of the NQey merchants.

sub EVENT_SAY
{
	if($text=~/Hail/i)
	{
		quest::say("Greetings. I am an acolyte of the seer of knowledge. We were 

sent to Norrath to provide transportation to this world. If you [wish to go], just tell me 

and I will use the seer's powers to transport you. Anytime you wish to return, just seek 

out the seer and she will send you back");
	}
	if($text=~/wish to go/i)
	{
		quest::selfcast(3182);
	}
}