#!perl -p s|.(?{$&ne$"^!$^R?$/:not$/.=$"})|$&$^R|g