perl -lwe '$_="Some eXampel tExt."; for $i (/.([A-Z])/g) {print $i;}'
or if you want negative look-behind
perl -lwe '$_="Some eXampel tExt."; for $i (/(?<!.)([A-Z])/g) {print $i;}'
type:
perldoc perlre
--
### Jordan Linux Users Group ###
http://Jolug.org/
http://groups.google.com/group/Jolug
### Ubuntu Jordan LoCo Team ###
https://wiki.ubuntu.com/JordanTeam
http://lists.ubuntu.com/ubuntu-jo
### Ojuba Linux ###
http://ojuba.org/
### Jordan PHP ###
http://groups.google.com/group/JoPHP
