my $reversed = $str =~ /\p{Lu}/ ? lc $str : uc $str;  # Or
my ($reversed) = map {/\p{Lu}/ ? lc : uc} $str;