perl -wse  "print join ' ', $0, $R" -- -R=OK
-e OK

perl -swe  "print join ' ', $0, $R" -- -R=OK
-e OK

perl -sew  "print join ' ', $0, $R" -- -R=OK

#what the hell?! ..no output :)