Too be fair, this is a problem with the *current* implementation of qr,
and not the concept. Your two regexps are actually:
#UPDATE: While the previous verbose format was more
# impressive, it was hideously long. See the
# readmore for the literal strings.
$qq = "[a]"x100;
$qr = "(?-xism:[a]"x100 . ")"x100;
I think even a newbie could see that the latter is outrageously complicated...
$qq =<<EOqq;
[a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][
+a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][
+a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][
+a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][a][
+a][a][a][a][a][a][a][a][a]
EOqq
$qr =<<EOqr;
(?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-x
+ism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism
+:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a
+](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?
+-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xi
+sm:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:
+[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a]
+(?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-
+xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xis
+m:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[
+a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](
+?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-x
+ism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism
+:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a
+](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a]xism:[a](?-xi
+sm:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:[a](?-xism:
+[a]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+)))))))))))))))))))))))))))))))))))
EOqr
--
I'm not belgian but I play one on TV.