"I found this search in perl that i am reusing, instead make the wheel again."

"Build a good website template boilerplate for my company."

In the interest of not reinventing the wheel, or reposting, I suggest you take a look at the responses to your previous posts where several people have pointed out the pitfalls of your current approach, and suggested sane modern methods of working.

Update: also:

perl -c t.pl 
syntax error at t.pl line 21, near "= ;"
Global symbol "$queryE" requires explicit package name (did you forget
+ to declare "my $queryE"?) at t.pl line 22.
Unknown regexp modifier "/t" at t.pl line 24, at end of line
Unknown regexp modifier "/t" at t.pl line 24, at end of line
Unknown regexp modifier "/e" at t.pl line 24, at end of line
BEGIN not safe after errors--compilation aborted at t.pl line 28.
[download]