Select Code to Download

       http://perldoc.perl.org/perluniintro.html

    sub nice_string {
        join("",
...
            } unpack("W*", $_[0])
         )           
     }