#!/usr/bin/perl -n

BEGIN {
    print "Usage: $0 <start pattern> <end_pattern>\n" and exit unless @ARGV == 2;
    $start = shift @ARGV; $end = shift @ARGV;
}

next if 1 .. /$start/;
last if /$end/;
print