Обратное размещение слов

http://perldoc.perl.org/functions/reverse.html

Побить каким-нибудь split, реверснуть массив и объединить каким-нибудь join.

perl -wE 'say join "/",reverse split "/","4444/3333/2222/1111"'

Оффтопик: вот за это пользователей perl и не любят

use strict;

my $str = '4444/3333/2222/1111';
my @data = split('/', $str);
my $result = join('/', reverse(@data) );
printf( "%\n", $result );

Вот только изначальный вариант более читабельный, чем твой «рефакторинг», лол.

сможешь найти трёх человек, которые с тобой согласятся?

я номер раз.

я номер два.

нет, серьёзно)

Я номер три.

Первый вариант гораздо читабельней.

Не знаю какой я по счёту, но я голосую за анонимуса. Об твой код только глаза ломать - стена текста.

Оффтопик: вот за это пользователей perl и не любят

Зато за это пользователи любят perl!

/me четыре.

читинг :)

вариация:

perl -le 'print join "/",reverse "4444/3333/2222/1111" =~ m|([^/]+)|g'
1111/2222/3333/4444

perl -e 'print «1111/2222/3333/4444»'

точнее формулируй задание

точнее формулируй задание

точнее смотри кому отвечаешь