perl -e'use strict; my $x = qr/(??{ $x })/;'