Объемные регулярные выражения

нет, скорее это натуральное теоретическое развитие парадигмы регулярных выражений

Gmail ломает кодировки

всем привет. я тут скриптик написал для перекодирования. если нужны комментарии - обращайтесь.

#!/usr/bin/perl

undef $/;
$_ = ;

s/\$B//gs;
s/\(B//gs;
s/\(J//gs;

s/'\!/а/gs;
s/'\"/б/gs;
s/'\#/в/gs;
s/'\$/г/gs;
s/'\%/д/gs;
s/'\&/е/gs;
s/'\(/ж/gs;
s/'\)/з/gs;
s/'\*/и/gs;
s/'\\/к/gs;
s/'\,/к/gs;
s/'\+/й/gs;
s/'\-/л/gs;
s/'\]/л/gs;
s/'\./м/gs;
s/'\^/м/gs;
s/'\//н/gs;
s/'\_/н/gs;
s/'\`/о/gs;
s/'\:/ш/gs;
s/'\>/ь/gs;

s/'A/я/gs;
s/'Q/а/gs;
s/'R/б/gs;
s/'S/в/gs;
s/'T/г/gs;
s/'U/д/gs;
s/'V/е/gs;
s/'W/ж/gs;
s/'X/з/gs;
s/'Y/з/gs;
s/'Z/и/gs;

s/'0/о/gs;
s/'1/п/gs;
s/'2/р/gs;
s/'3/с/gs;
s/'4/т/gs;
s/'5/у/gs;
s/'6/ф/gs;
s/'7/х/gs;
s/'8/ц/gs;
s/'9/ч/gs;

s/'a/п/gs;
s/'b/р/gs;
s/'c/с/gs;
s/'d/т/gs;
s/'e/у/gs;
s/'f/ф/gs;
s/'h/х/gs;
s/'g/ц/gs;
s/'i/ч/gs;
s/'j/ш/gs;
s/'k/щ/gs;
s/'l/ъ/gs;
s/'m/ы/gs;
s/'n/ь/gs;
s/'o/э/gs;
s/'p/ю/gs;
s/'q/я/gs;

print;

Gmail ломает кодировки

$B - начало слова, (B - конец.