open INFILE, ...;

my @block;

1 while ( $_ = <INFILE> ) !~ /START TOKEN/;

push @block, $_;

push @block, $_ while ($_ = <INFILE>) !~ /END TOKEN/;

close INFILE;

## Use @block perhaps trimming first and last lines first.