[-] fix perl-2 bug