while (<DATA>) {
   die "Error!" if $_ eq ".\n";
}

__DATA__
a
b
c
.
d
e