$Prj =~ tr/TladevWZ#1/BmwWtz#1/;