perl -pe'$_ x=/^[A-Z]/i'