use strict;

do {
    my $line = <STDIN>;
    ...
} until $line  eq ".\n";  # Syntax error
__END__
Global symbol "$line" requires explicit package name

##</code><code>##

use strict;

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