while(my $line = <DATA>)
# becomes
while (defined(my $line = <DATA>))