use re 'eval'; $code = 'foo(?{ $x })'; /$code/