> но пары ненаглядно описаны.

use v5.10;
my $str = 'defg';
$str =~ tr/
    defg/
    5678/;
say $str;


# perl tr.pl
5678


-- 
Andrew Shitov
______________________________________________________________________
[email protected] | http://shitov.ru
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить