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