#!perl
use strict;
use warnings;
map { print unpack "B*", chr hex } qw\25 00 53 00 79 00 73 00 74 00 65 00 6d 00 52 00 6f 00 6f 00 74 00 25 00 5c 00 73 00 79 00 73 00 74 00 65 00 6d 00 33 00 32 00 5c 00 53 00 48 00 45 00 4c 00 4c 00 33 00 32 00 2e 00 64 00 6c 00 6c 00 00 00\;