open FH, "file.txt" or die "Couldn't open file.txt: $!";
while (<FH>) {
    if (/^begin:$/ .. /^end:$/) {
        print;  # or do whatever else you want here.
    }
}