foreach my $line (<DATA>) {