corrected not valid perl-code which fails with perl5.18