$_ = "warewan1123 and JOHN1123";(はじめの文字)
$B = tr/a-z/A-Z/; (小文字時を大文字に)
$C = s/1/2/; (1を2に)

結果は、 WAREWAN2123 AND JOHN1123
($B)trでの変換数10
($C)sでの変換数1
trは、すべてsは最初の1回のみですが、修飾子で、また変化、ややっこしい。