while( my $line = <DATA> ) {...}