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

##</code><code>##

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