$_ && print substr $_, -1 for %!