You can actually, since Perl's regexes can evaluate code and interpolate patterns at regex run-time. This enables recursive regexes, see the perlre manpage for an example.

Cheers,
-Anomo