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