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


in reply to /r JAPH

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