Inspired by Japh Random Search++

#! /usr/bin/perl
use strict;use warnings;$_=qq;
#Just another Perl hacker,
;;chomp;s#\###;$a=$_;s
_\w_\__g;print;while(/_/){$/=qq$a$;$/
++for(                              1
..rand                            (26))
;for                               $b(  
0..                           length($a)-1){
substr                        ($_  ,$b,  1)=
substr                             ($a,
$b,                              1)if$/eq
lc                            substr  ($a,$b
,1)}
print}
###################################################
[download]