Help for this page

Select Code to Download

Select or download this

use IO::Socket;
use MIME::Base64;
...
    (my $copy = shift) =~ s/([^[:print:]])/sprintf " (0x%02x) ", ord $
+1/ge;
    print $copy;
}

Select or download this
```
cGVpcDo5MzA2MTI= (0x0a)
```