$ perl -Mstrict -Mwarnings -E '
open my $inFH, q{<}, \ <<EOD or die $!;
Line 1
Line 2
Line 3
Line 4
Line 5
Line 6
Line 7
EOD

while ( <$inFH> )
{
    next if 3 .. 5;
    print;
}'
Line 1
Line 2
Line 6
Line 7
$