if ((*pear'd* iswm $1-) && ($istok(6 7 8,$remove($wildtok($1-,?am,1,32),am),32))) {
[color:red]commands
}
[/color]
maybe a solution, if you want an overview of what it does;
It checks if pear'd iswm the sentence (wildcard string v1 matches string v2), after that it finds a word that matches wildtok, '?am' (? stands for a single character, any character), followed by 'am', seperated by spaces, if its found, it removes 'am' leaving just the first character, checks if that character is 6 7 8.
Eamonn.