This is more deception than obfuscation, and the main idea is a blunt theft from another simple japh by Felonius (which to decipher I was very proud of;-), but maybe you can enjoy it as a first obfu.

#!/usr/bin/perl -w
use strict;
$/=\89;$;=<DATA>;$/=\"102";$^W=0,s>><<B>eoix;
qw(map{push @_ $_}qw/74 $;/);
B
;s!!$;='',map{$;.=''.pack("C",$_)}eval!ogiex;$_=$;;;print;
__DATA__
74 117 115 116 32 65 110 111 116 104 101 114 32 80 101 114 108 32 72 9
+7 99 107 101 114 10
__END__
[download]

regards,
tomte

---