Help for this page
$buf =~ s/\G(.*\n)//g
$buf =~ s/\G(.*?\*\*\*)//sg
$buf =~ s/\G("(?:[^"\\]|\\.)*")//sg
$buf =~ s/\G(.{128})//sg