Select Code to Download

[Variable length lookbehind not implemented in regex; ...

print $s;;
#@##@###@####@#####@
...
#@##
###@####
#####@

print for split '(?:(?<=[^#]########)|(?<=[^#]######)|(?<=[^#]####)|(?
+<=[^#]##)|(?<!#))[@]', $s;;