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