Нет нужных сборок

Возможно в Perl. Используя разделить , карту , скалярную , lc , обратную , ucfirst , присоединиться к . Немного сложнее, чем я изначально думал, из-за запятых и контекстной зависимости сопоставления.

#!/usr/bin/perl
use warnings;
use strict;

sub rev {
    my ($string) = @_;
    my @words = split /(\W+)/, $string;
    my @caps = map scalar(/^[[:upper:]]/), @words;
    $_ = /\w/ ? lc reverse : $_ for @words;
    shift @caps and $_ = ucfirst for @words;
    return join "", @words
}

use Test::More tests => 1;
my $r = rev('Hello, my name is Yimin Rong.');
is $r, 'Olleh, ym eman si Nimiy Gnor.';