my $text = do { local $/; <FILE> };
if ($text =~ /^Header1.*?END LIST/m) {
....
}