#!/usr/bin/perl
use Data
::Dumper qw(Dumper
);
$text = "Кот собака кит дельфин";
IyEvdXNyL2Jpbi9wZXJsCgp1c2UgRGF0YTo6RHVtcGVyIHF3KER1bXBlcik7CgokdGV4dCA9ICLQmtC+0YIg0YHQvtCx0LDQutCwINC60LjRgiDQtNC10LvRjNGE0LjQvSI7CkB0ID0gc3BsaXQgLyAvLCAkdGV4dDsKcHJpbnQgRHVtcGVyIFxAdDsK