while(<$file>){
  my @fields = split ':';
  last if $fields[0] eq $userid;
}

##</code><code>##

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