in reply to -s option

You know, I don't recall off the top of my head. But I can tell you when I'm curious about such matters, I generally consult perlrun.

You may see if that helps you find an answer. 

$/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );

[download]

In Section Seekers of Perl Wisdom