Code:
raw *:*:{
  if ($istok(301 310 311 312 313 317 318 319 330 338 431,$numeric,32)) {
    echo -atrci whois * Format $qt(raw $numeric) as you like using $!2- $+(",$2-,")
  }
}