($tmp = $global) =~ tr/13579/24680/;