a
begin
1          <-----  delete
a          <-----  delete
2          <-----  delete
end
c
begin
c
end
a
begin
1

##</code><code>##

a
begin
end
c
begin
c
end
a
begin
1

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

my @array = <DATA>;
my $count = 0;
my $fb = 0;
foreach (@array) {
    if (/begin/) {
        $fb = $count;
        last;
    }
    $count++;
}
$fb++;
my $count1;
my $fc = 0;
foreach (@array) {
    if (/end/) {
        $fc = $count1;
        last;
    }
    $count1++;
}
my $num = ($fc - $fb);

splice (@array,$fb,$num);
print @array;



__DATA__
a
begin
1
a
3
end
c
begin
c
end
a
begin
1