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