$var2 = s/123/456/g (tr/a-z/A-Z/ ($var));