i know you gave me a good explain but my code isn't like yours cause i feel that my code is more understandable
no more
i have tried your method to create to variables one for comment and another one for block and i failed

Yet it doesn't do what you want. What is so difficult in copying a piece of code, or in asking again if there's something you don't understand?

and also your method is relay on taking a sample of the file by EOF and this didn't suit me

I don't understand what you mean by "taking a sample of the file by EOF". Can you explain that in other words, or in code? There's no use of EOF or taking a sample in there.

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}