while (<FOO>) {
  print if /Port\s+$port\b/ .. /^#---/ && last;
}