my $str = "siteConfigView";
my($last_word) = $str =~ /([A-Z][a-z]+)$/;
print $last_word, $/;
[download]

broquaint

use strict;

for (qw(siteConfigDelete siteConfigView)) {
   my ($last) = $_ =~ /([A-Z][a-z]+)$/;
   print "$last\n";
}
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Assuming that the last word always consists of one capital letter, and then a series of lower case letters until the end of the string, you could do

   my $foo = "siteConfigDelete";

   my( $last ) = ( $foo =~ /([A-Z][a-z]+)$/ );
   print "$last\n";
[download]

Of course if you want to honour any locale settings, /([[:upper:]][[:lower:]]+)$/ might be more appropriate.

note: this is new in perl v5.6.0 -- POSIX Character Classes

~Particle ;Þ

$_="ConfigState"; 
my @words= split /([A-Z][^A-Z\s]+)$/,$_; 
print @words[-1], "\n";

# prints "State"
# @words = qw(Config State)


@words= split /([A-Z])/,$_; 
print @words[-2,-1], "\n"';

# It's a trick, but it prints "State" 
# @words = qw(C onfig S tate)
[download]

The other suggestions may be what hotshot wanted, but they are not what he asked for ... not that it is very clear what he is asking for, but you might do well to consider the differences between this and the other solutions:

for ("siteConfigView", "siteConfigDelete (with ws and lc extras)  ") {
    my $last = (/([A-Z][^\WA-Z]*)/g)[-1];
    print "$last\n";
}
[download]

Now, s/\*/+/ if that fits your idea of "word" better. And of course, if your string is really long, this version is likely slow. Use with care :-)

The Sidhekin
print "Just another Perl ${\(trickster and hacker)},"

just for fun...

for ("siteConfigView", "siteConfigDelete (with ws and lc extras)  ") {
    my $last = (/([A-Z][^\WA-Z]*)/g)[-1];
    print "$last\n";
}
[download]

You could collapse the above code into a one-liner: print+(/[A-Z][^\WA-Z]*/g)[-1],$/for"siteConfigView","siteConfigDelete (with ws and lc extras)  " --Dave