bash$ perl -wle 'my $rex = qr/./; $rex = qr/$rex./ for 1..10; print $rex;'
(?^:(?^:(?^:(?^:(?^:(?^:(?^:(?^:(?^:(?^:(?^:.).).).).).).).).).).)