elsif ($code_s =~ m{\G((?:.*$)*)(?!\s###+)}cgm) { #!!!!!
            # $1 only captures a single line 
            # why not multiple lines complete with their \n?