#!/usr/bin/perl

my @lines = do { open F, "article.pod"; ( undef, <F> ); };

foreach ( <DATA> )
	{
	my( $start, $stop ) = m/(\d+).*?(\d+)/g;
	
	print "\n";
	foreach my $line ( $start .. $stop )
		{
		print $lines[$line];
		}
	print "\n";
	}


__DATA__
10-24
60-65
57-60
65-69
113-115
42-45
51-53
70
89
81
76-77
85
93-94
99-98
103-105
198-224
248-253
244-247
225-243
255-280
46-49
116-122
55-56
281-336
25-37
399-416
5-8
521-524