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