/r JAPH

[trizen]

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],$/;

[pvaldes]

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
////