if ($regex($1,/^[-][aq]$/)) and if ($istok(-a -q,$1,32)) are the same difference, really.