you probably know this, but you can make this slightly more efficient if you add a guard against cases where $_ eq uc $_, saving a disk access. This isn't really important in a one-liner though.