Add perl string func