>perl -MO=Concise -e "$re = eval 'qr/test3/'; '' =~ $re" | find "</>"
-e syntax OK
c  </> match() vKS