My first, random japh. Actually it's pretty straight forward...

sub _{ srand shift;push@a,map{chr 97+rand 21}0..shift||5}; _ 4971054;_ 2123966;_ 2922908,4;_ 306345,3;$_=join "",@a; s#(?=[ap][en]|ha)# #g;print

Somehow I couldn't resist the seduction of the random numbers ;-)