use strict;

INPUT:
while ( my $line = <STDIN> ) {
    last INPUT if $line eq ".\n";
    ...
}