package local; *-=*_; package notsolocal; while (<>){ $-=uc $_; tr/A-F/1-6/; print $-; }