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