Select Code to Download

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