tr/// ist nicht für das ersetzen von worten oder zeichenketten sondern für einzelne zeichen gedacht. benutze statt dessen s///

ausserdem würde ich dir dazu raten, anstatt des -w hinter dem perl die zeile use warnings; zu benutzen. du solltest auch use strict; benutzen. dann musst du nur noch alle variablen mit my deklarieren.