my $my_addr = 'my.box.ip.addr:80';
my $keep = 0;

while (<>) {
  if (/incoming connection/) {
    $keep = /\Q$my_addr/;
  }
  print if $keep;
}