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

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