http://www.perlmonks.org?node_id=149961

#!/usr/bin/perl use strict;map{$a++} ('g','r','e','p') ;$a=$a-$a--+$a++;$a++;$b=int (rand($a));$b++;map{chomp;@INC =split(/\D/);push(@_,(int($INC [$b]/$b),int($INC[$b+$a]/$b))) ;}(<DATA>);map{printf("%c",$_)}@_; __DATA__ L076I146H216a097m218u351 z122p224b294i105a194r342 n110t232i315e101i210s345 s115e202(096s115n220#096 &032c198$096^032e202)096 ^032#064?096<010>020\030

UPDATE: some small changes to muck it up a bit more

grep
grep> cd /pub
grep> more beer