in reply to Re: Read value from file, replace, then write to new file
in thread Read value from file, replace, then write to new file

local $" = ''; "@{[ ... ]}"
instead of
join '', ...? 

sub random_string {
    join '', map{chr(97+int rand 26)} 1 .. shift;
}

[download]

In Section Seekers of Perl Wisdom