Отцам Perl

evgen5555

	$encrypted_string =~ s/(..)/pack("C*", hex($1/segm;

	$encrypted_string = unpack("u*", $encrypted_string);

---

Что делают эти две строчки? Превращают строку в Unicode?

evgen5555

Как обратить эти операции над строками?

ppplva

Вторая строка делает uudecode.
Первая разбивает строку на пары символов, каждую пару считает шестнадцатеричным числом и заменяет на символ с соответствующим кодом.