[AndMetal]

These should help as references:
Regular expression examples - Wikipedia, the free encyclopedia
Perl regular expressions for the common man

Here's the finished product:

#############
#Written By : cubber, regexp by AndMetal
#Quest Name: #summonitem proxy
#Quest Zone: Cshome
#Quest NPC: Krakskull
#################
sub EVENT_SAY {
	if($text=~/Hail/i) {
         quest::say("Hello there $name,  need some [items summoned]?");
	} elsif ($text=~/i seek item (\d{1,6})/i) {
		my $itemNum = $1;
		quest::emote("Krakskull begins to chant...");
		quest::summonitem($itemNum);      	
		quest::emote("The item you seek apears before your eyes!");
	}
}