my $port = "1234";
open FILE, blah blah blah or die;
while (<FILE>) {
  print if /Port\s+$port/ .. /^#---/;
}
close FILE;