#!/usr/bin/env perl

use strict;
use warnings;

my $start_re = qr{(?x: ^ my_variable = )};
my $end_re   = qr{(?x: (?<! ^ my_variable ) =
                     | ^ \[ [^\]]* \] $
                     | ^ [*]{3} \s+ Block \s+ \d+
                )};

while (<DATA>) {
    print if /$start_re/ .. /$end_re/ && next;
}