my @line = map { chomp; $_ }  fgrep { /^[2-6] .+$/ } *DATA;