#!/usr/bin/perl -w

use strict;
use warnings;

	my ($fileName, $firstSequence, $lastSequence) = @ARGV;

	open (IN, "<$fileName") || die "Can't open $fileName";

     
	my $line;
        my @line=();
OUTER2:	while (my $l = <IN>){
        if($l eq ""){last EXIT2;}
	if ($l =~ />/) {  
             print "$l\n";
	       next;
	    }

	chomp($l);
	$line .= $l;
	}
	@line = split(//, $line);  
	print @line[$firstSequence-1..$lastSequence-1];
        last OUTER2;
EXIT2:	close(IN);