my $begin = shift @ARGV;
my $end = shift @ARGV;
$_=<> until /^$begin$/;
while (<>) {
  last if /^$end$/;
  print;
}