perl-ıo-string rebuild