Help for this page

Select Code to Download

Select or download this

sub uclast ($) {
    my $foo = shift;
    $foo =~ s/(\w)$/\u$1/;
    return $foo;
}