while( <GUESTS> ){
  #no chomp, we need the \n later on...
  split /::/;
  if( $_[0] =~ /$search_name) {
    print join "<BR>\n", @_;
    print "<HR>\n";
  }
}