$;='per';map{map{s/^\s+//;$_{$_}++ unless /[^a-z]/}split(/[\s,]+/,$_,0
) if /alpha.*$;/i .. /wait/}`$;ldoc $;ltoc`;@[=keys%_;@print=('Just ',
'another ','Perl ','hacker',',');for('a'..'z'){$p.=$_.' ';};$g=5;$word
=@[[rand(201)],@pop=split(//,$word);for(0..(@pop-1)){$pop[$_]='-'}$tmp
=''; for ( 1..24 ){ system (($^O eq qq(\x4D\x53\x57\x69\x6E\x33\x32))?
qq(\x63\x6c\x73):qq(\x63\x6c\x65\x61\x72)); print $/, @print, $/,$/; ;
print&print(@print),$/,$/;print @pop,$/,$/;print $p,$/;(@print eq 0)?(
die):();($tmp=~ m/$word/i)?(exit):();while(!($p=~ m/$g/gi)or($g eq' ')
or($g eq '')){print"Enter a Letter:";chomp($g=<STDIN>);}$p=~ s/$g/-/gi
;pos($word)=0;while($word =~ m/$g/gi){($pop[(pos($word))-1]=$g)}($word
=~ m#$g#gi)?():($devnul=pop(@print) );$g='';$tmp=join("",@pop); } END{
print"The correct function was $word!"}sub'print{my($a,$b,$c,$d,$f)= (
'|========'."$/".' \\\\//   |'."$/".'  ||   \O/'."$/".'  ||    X'."$/"
.'  ||   / \\'."$/".'  ||'."$/".'_/  \\','|========'."$/".''.""."".''.
' \\\\//   |'."$/" .'  ||   \\O/' ."$/" .'  ||    X'."$/".'  ||'."$/".
'  ||'."$/".'_/  \\','|========'."$/".' \\\\//   |' ."$/".'  ||    O'.
"$/".'  ||    X'."$/".'  ||'."$/".'  ||'."$/" ."".''.'_/  \\','' ."" .
'|========'."$/".' \\\\//   |' ."$/".'  ||    O'. "$/".'  ||'."$/"."".
'  ||'."$/".'  ||'."$/".'_/  \\','|========'."$/".' \\\\//   |' ."$/".
'  ||'."$/".'  ||' ."$/".'  ||'."$/" .'  ||'. "$/".'_/  \\');(@_ eq 4)
?(return $d):((@_ eq 3)?(return $c):((@_ eq 2)?(return$b):(((@_ eq 1)|
(@_ eq 0))?(return$a):(return$f))));}$devnul='';#for($xp++){@game=@me}

[download]
The more clever bits are, of course, stolen from the Master

In reply to Loading Times May Vary... by ktross

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.