Help for this page
$minlength=5; $maxlength=15; $rlength=$minlength+=int(rand($maxlength)); ... $newvar.=$char } print $newvar
while(@whatever) { s/blah/rwg()/ge; }