#!perl -p
$_^=(-$_^-lc)&lc