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