while (my $line = <IN>) {
  last if ($line =~ /^__DATA__$/);
}
my @data = <IN>;