while(<$file>){
  last if /^$userid:/;
  # do whatever
}