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