while (<DATA>) {
        if (/$start/.../$end/) {
                print;
        }
}