use strict;
use warnings;
use 5.010;
 
my $text = 'sllnj;//qTlsMd.fp,/42jTk3j69Tj';
say $text;
 
$text =~ tr[qdjl,T2s4knM6p3;.f9][gbstmi2h4lpuwoa:.ce];

