#!\perl\bin\perl -w
use strict;

            my$tm;foreach my$i(0..78){$tm.=chr($i+48);}my$m=0;
          my@ta;                                       foreac
        h m  y$y                                     (0.  .12
      ){f    ore                                   ach    my$
    n(0      ..5                                 ){$      ta[
  $y]        [$n                               ]=s        ubs
tr(          $tm                             ,$m          ,1)
;$m++;}}sub encryptor{my$w=shift;my($r,$r1,$r2,           $c1
,$c          2);                           for            (my
$i=          0;$                           i<l            eng
th(          $w)                           ;$i            +=2
){i          f($                           i<(            len
gth          ($w                           )-1            )){
my$          w1=                           sub            str
($w          ,$i                           ,1)            ;my
$w2          =su                           bst            r($
w,$          i+1                           ,1)            ;fo
rea          ch                            my$            y(0
..1          2){                           for            eac
hmy          $n(                           0..            5){
if(          $ta                           [$y            ][$
n]e          q$w                           1){            $r1
=$y          ;$c                           1=$            n;}
}}f          ore                           ach            my$
y(0          ..1                           2){            for
eac          h m                           y$n            (0.
.5)          {if                           ($t            a[$
y][          $n]                           eq$            w2)
{$r          2=$y;$c2=$n;}}}if($r1==$r2||$c1==$c2){$r.=$w2;$
r.=          $w1                           ; }           els 
e {         $r.                            =$t         a[$   
r2]       [$c                              1];        $r.    
=$t     a[$                                r1]      [$c      
2];   }}e                                  lse    {$r        
.=  sub                                    str  ($w          
,$i,1)                                     ;}}ret            
urn$r;}my@j=("vits","mbunbkr","dqlr","bgiew`");              

foreach my$a(@j){print encryptor($a)," ";}