while(<QUOTES>) {
  if (/$text/i) {
    chomp;
    print "$lnum: $line";
    $conn->privmsg($event->{to}[0], "$lnum: $line");
    break;
  }
}