A simple solution might be this alias:
alias findcommon {
var %a = $1, %b = $2, %c = $3, %i = 1
while ($numtok($1,%c) >= %i) {
if ($istok($2,$gettok($1,%i,%c),%c)) {
var %d = %d $gettok($1,%i,%c)
}
inc %i
}
return %d
}
Syntax: $findcommon(%a,%b,32)
Where %a is your original string, %b is your string your checking to see if %a isin, and 32 is the 'seperator' ascii code, in this case 32 for a space.
Eamonn.