print "'$str' starts with lowercase\n!" if substr($str,0,1) =~ /[a..z]/;