##
s<\@(.*?)\@>{ ... }ge;
##
##
while(<>) {
s/\@(.*?)\@/ subst($1) /ge;
print;
}
sub subst {
my $s = shift;
my %r = (
'a' => chr(0x430),
'b' => chr(0x431),
'c' => chr(0x446),
'd' => chr(0x434),
'e' => chr(0x435),
'A' => chr(0x410),
'B' => chr(0x411),
'C' => chr(0x426)
);
$s =~ s/([a-eA-C])/$r{$1}/g;
return $s;
}
##
##
s/\@(.*)\@/ subst($1) /ge;