rendered paste body#!/usr/bin/perl
($e='Whfg',$f='nabgure',$g='Crey',$h='unpxre');@i=('tJsu','ohenatr','elPr','rahkec');$i=0;$e=~y.A-Za-z.N-ZA-Mn-za-m.;$f=~y.A-Za-z.N-ZA-Mn-za-m.;$g=~y.A-Za-z.N-ZA-Mn-za-m.;$h=~y.A-Za-z.N-ZA-Mn-za-m.;for$_(@i){split(//);if($i==0){while($a ne$e){$a='';$a.=$_[rand@_]for 1..4;print"$a "if$a eq$e;}}elsif($i==1){while($b ne$f){$b='';$b.=$_[rand@_]for 1..7;print"$b "if$b eq$f;}}elsif($i==2){while($c ne$g){$c='';$c.=$_[rand@_]for 1..4;print"$c "if$c eq$g;}}elsif($i==3){while($d ne$h){$d='';$d.=$_[rand@_]for 1..6;print$d,','$/if$d eq$h;}}$i++;}