use strict;
use warnings;
use re 'eval';
my $re = '';
'' =~ /$re(?{ print(">$x<\n"); })/;