time to let go off perl

history technology

just wrote:

$r .= substr($str, int (rand(scalar split // , $str)), 1);

and even though it does what I want and I wrote it down the way I write this it simply feels wrong. Not out of this century.