$buf =~ s/\G(.*\n)//g

##</code><code>##

$buf =~ s/\G(.*?\*\*\*)//sg

##</code><code>##

$buf =~ s/\G("(?:[^"\\]|\\.)*")//sg

##</code><code>##

$buf =~ s/\G(.{128})//sg