Avoid global performance penalty by using $&

We shouldn't use $& in our codes.

http://perldoc.perl.org/perlvar.html

> The use of this variable anywhere in a program imposes a considerable performance penalty on all regular expression matches.