Select Code to Download

Nested quantifiers in regex; marked by <-- HERE in m/(.*{ <-- HERE 41}
+)$/ a

/(.{41})$/

$last_41 = substr $buffer, -41;