note
Your Mother
<p><c>chomp</c> doesn’t return quite like that. This should work–
</p>
<code>
my @line = map { chomp; $_ } fgrep { /^[2-6] .+$/ } *DATA;
</code>
<p>
But maybe this is better–
</p>
<code>
chomp( my @line = fgrep { /^[2-6] .+$/ } *DATA );
</code>
1190241
1190243