Один из вариантов решения этой задачи может быть следующим. Пусть результирующая строка находится в переменной $p (ее начальное значение равно пустому). Далее в цикле, пока не просмотрены все символы строки, находим алфавитно цифровой символ (\S). Этот символ помещен в переменную $&. Этот символ помещаем в начало строки $p (тело цикла). Пример работы скрипта изображен на рисунке 1.

    Текст программы:

$str= <STDIN>; 
print "str=$str\n";
$p="";
while ($str =~m/\S/g)
{
  $p=$&.$p;
}
print "new str=$p\n";

Рис.1. Пример работы скрипта