on $*:text:/(\b[0-9]{4,999}\b)/gS:#:{
  var %i 1
  while !%vcr && $regml(%i) {
    if $v1 isnum 9001- { msg # its... ITS... ITS OVER 9000!!!!!!! | inc -eu180 %vcr }
    inc %i
  }
}