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

    print $_;

}