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

Just for fun :P
print$/=~s~~r~r=~s~~e~r=~s~~k~r=~s~~c~r=~s~~a~r=~s~~h~r=~s~~ ~r=~s<> ~l~r=~s~~r~r=~s~~e~r=~s~~P~r=~s~~ ~r=~s~~r~r=~s~~e~r=~s~~h~r=~s~~t~r =~s~~o~r=~s~~n~r=~s~~a~r=~s~~ ~r=~s~~t~r=~s~~s~r=~s~~u~r=~s~~J~r////

Bonus: \&~=~'\(';print+s{\x42}{$"}r,for($`..-$`)[4889245,650731,2540044,8375064,1505137],$/;

Replies are listed 'Best First'.
Re: /r JAPH
by pvaldes (Chaplain) on Dec 29, 2012 at 23:44 UTC
    print $INPUT_RECORD_SEPARATOR <- newline =~s//R/r =~s//E/r =~s//K/r =~s//C/r =~s//A/r =~s//H/r =~s// / =~s<>/L/r ; mmh ? =~s//R/r =~s//E/r =~s//P/r =~s// /r =~s//R/r =~s//E/r =~s//H/r =~s//T/r =~s//O/r =~s//N/r =~s//A/r =~s// /r =~s//T/r =~s//S/r =~s//U/r =~s//J/r ////