#!/usr/bin/env perl

use strict;
use warnings;

my $c1 = <<'C1';
Pronunciation     /&#712;b&#603;t&#601;ld&#658;u&#720;z, &#712;bi&#720;t&#601;l-, -d&#658;u&#720;s/[1][2]
Right ascension     05h 55m 10.30536s[3]
Declination     +07° 24&#8242; 25.4304&#8243;[3]
Apparent magnitude (V)     +0.50[4] (0.0–1.6[5])
Characteristics
Evolutionary stage     Red supergiant
Spectral type     M1–M2 Ia–ab[6]
Apparent magnitude (J)     &#8722;3.00[7]
Apparent magnitude (K)     &#8722;4.05[7]
U&#8722;B color index     +2.06[4]
B&#8722;V color index     +1.85[4]
Variable type     SRc[8]
Absolute magnitude (MV)    &#8722;5.85[12]
C1

my $c2 = <<'C2';
fritz@laptop:~/Documents$ trans :ru betelgeuse -p
betelgeuse

&#1073;&#1077;&#1090;&#1077;&#1083;&#1100;&#1075;&#1077;&#1081;&#1079;&#1077;
(betel'geyze)

Translations of betelgeuse
[ English -> &#1056;&#1091;&#1089;&#1089;&#1082;&#1080;&#1081; ]

betelgeuse
    &#1073;&#1077;&#1090;&#1077;&#1083;&#1100;&#1075;&#1077;&#1081;&#1079;&#1077;, &#1041;&#1077;&#1090;&#1077;&#1083;&#
1100;&#1075;&#1077;&#1081;&#1079;&#1077;
fritz@laptop:~/Documents$
C2

my %c2pre = ('[' => '&#91;', ']' => '&#93;');

for my $c ($c1, $c2) {
    $c =~ s/([\[\]])/$c2pre{$1}/eg;
    print "<pre>\n$c</pre>\n";
    print '-' x 60, "\n";
}