$ echo "a
begin
1
a
3
end
c
begin
c
end
a
begin
1" | perl -ne'print unless ?begin? .. ?end? and not /begin/ || /end/'
a
begin
end
c
begin
c
end
a
begin
1