my $foo = "siteConfigDelete";

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