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