Select Code to Download

Select or download this

#! perl -slw
use strict;
...
    my $x = shift;
    split m[ (?: (?<=[^#]\#\#\#\#) | (?<=[^#]\#\#) | (?<!\#) ) [@] ]x,
+ $x;
}

Select or download this

C:\test>junk8
             Rate     unroll  rollahead lookbehind
...
              unroll => @# #@## ##@  ##@## #@#  @# #@## ##@@# #@## ##@
+@# #@## ##@ ##@## #@# @##@## #@# # # #@## ##@@# #@## ##@ ##@## #@# @#
+#@## #@# @##@## #@# @##@## #@# @##@## #@# # # #@## ##@@# #@## ##@@# #
+@## ##@@# #@## ##@

          lookbehind => #@## ###@#### #####@  #####@#### ###@## # #@##
+ ###@#### #####@#@## ###@#### #####@#@## ###@#### #####@ #####@#### #
+##@## #@#####@#### ###@## ## ## ###@#### #####@#@## ###@#### #####@ #
+####@#### ###@## #@#####@#### ###@## #@#####@#### ###@## #@#####@####
+ ###@## #@#####@#### ###@## ## ## ###@#### #####@#@## ###@#### #####@
+#@## ###@#### #####@#@## ###@#### #####@