#!/usr/bin/perl -w
$monkey="japh";@monkee=(32..127);do{$monkie="";do{$monkies=chr$monkee
[rand@monkee];$monkie.=$monkies;$yeknom=length$monkie;}until($yeknom
eq"4");$eiknom++;}until($monkie eq $monkey);print"$monkie in $eiknom"