in reply to Implement uclast with a regex

As requested, the regexp approach. 

my $string = "ACta";
$string =~ s/^(.*)(.)$/\L$1\U$2/;

[download]


Dave

In Section Seekers of Perl Wisdom