#!/usr/bin/perl

while (<DATA>) {                  # Daten einlesen
  if (/\/begin / .. /\/end /) {
    next; # Daten überspringen
  }
  print; # sonst Daten ausgeben
}

__DATA__
/begin blubber skdjflkdsjf
 sdlkfjdsk
 lksjflksdj 
 aajjllja
/end blubber

Zorg
Zack
Murks
Foo
Bar
Wall
Tim Towdy

/begin meaaahhh
 sdlkfjdsk
 lksjflksdj 
 aajjllja
/end meaaahhh

Muh
Wuff
Miau