#!/usr/bin/perl
use warnings;
use strict;
#by fokat of perlmonks

my $string = 'justanotherperlhacker';
print "$string\n";

my $obscure =  pack("u",$string);
print "$obscure\n";

my $unobscure = unpack(chr(ord("a") + 19 + print ""),$obscure);

print "$unobscure\n";
[download]