#!/usr/bin/perl

$from = 3;
$to = 5;

# There's the nice operator .., which has a useful
# behaviour in scalar context

while (<DATA>) {
	if (($from == $.) .. ($to == $.)) {
			print "$.: $_";
	}
}

__DATA__
1|/images/banners/internal/image1.gif|http://www.blah.com
2|/images/banners/internal/dumb.gif|http://www.dumb.com
3|/images/banners/internal/perl.gif|http://www.perl.com
4|/images/banners/internal/slashdot.gif|http://www.slashdot.org
5|/images/banners/internal/linux.gif|http://www.linux.org
5|/images/banners/internal/apache.gif|http://www.apache.org
6|/images/banners/internal/bsd.gif|http://www.bsd.org
7|/images/banners/internal/penguin.gif|http://www.penguin.com