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