in reply to Implement uclast with a regex

Not neccessarily the best way to do it, but it is pretty simple:

scalar reverse ucfirst lc reverse 'ACta';

note: scalar is only neccessary if you use this in a list context, such as print, but I left it in, just in case.

Just Another Perl Alchemist