Drawback of eval {---}if ($@){---}, when using many times?

rajuskark has asked for the wisdom of the Perl Monks concerning the following question:

I am using eval block many time in my program is. I want to know is there any harm or any drawbacks if using it many times

 while (){
----
eval{----};if($@){-----}
----
eval{----};if($@){-----}
---
eval{----};if($@){-----}
-----
-----
eval{----};if($@){-----}
-----
#and so on
}
[download]

Original content restored by GrandFather

Back to Seekers of Perl Wisdom