while (<DATA>)
{
    next unless /START/ .. /END/;

    print $_;
}
__DATA__
asdf
START
1
2
3
END
asdf