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