use strict;

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