while (my $line = <> ) {
	push @lines, $line unless $line eq ".\n";
}