map{
  $p  = index((join '', @{($y=~/./g)[$c]} ), $_);
  $o .= $p < 0 ? $_ : $a[$p];
  $c += $c < $k-1 ? 1 : 1-$k
} $t =~ /./gs;