perl -00 -ne 'print if /--Begin--/ && /--End--/' file.txt

##</code><code>##

Hello World

--Begin--
Cat
and
Dog
--End--

other stuff 
This is a test
Good Bye

##</code><code>##

--Begin--
Cat
and
Dog
--End--

##</code><code>##

export REX="/--Begin--/ && /--End--/"
echo $REX
/--Begin--/ && /--End--/

##</code><code>##

perl -00 -ne 'BEGIN {$rex = $ENV{REX}} print if qr($rex)' file.txt

##</code><code>##

perl -00 -ne 'BEGIN {$rex = qr($ENV{REX})} print if $rex' file.txt