Update perl/string.pl

modify