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