Select Code to Download

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

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