(substr($t,$_,1),substr($t,$_+1,1))=(substr($t,$_+1,1),substr($t,$_,1));

##</code><code>##

substr($t, $_, 2) = reverse substr($t, $_, 2);

##</code><code>##

$_ = reverse $_ for substr($t, $_, 2);