note
kcott
<p>
That would have been useful information to have provided upfront. Perhaps you'd care to update your initial post with this limitation. You can still do the transliteration - this code produces the same output as my previous solution:
</p>
<code>
$ perl -Mstrict -Mwarnings -e '
binmode STDOUT => ":utf8";
my $subs = join q{} => map chr, 0x430, 0x431, 0x446, 0x410, 0x411, 0x426;
while (<>) {
s/@([^@]+)@/"\$_ = \$1; y{abcABC}{$subs}; \$_"/eeg;
print;
}
'
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-861371">
<p>-- Ken</p>
</div></div>
1022394
1022435