printf (' hello world! ');

#!/usr/local/bin/perl
print pack ("c14", map {hex ("0x$_")} qw(48 65 6c 6c 6f 2c 20 77 6f 72 6c
64 21 0a));
__END__

\\/
http://www.wlindley.com