# Not obfuscated in the sense of what is being done, by any means.
# The regexes are obvious, as is setting $_ and using print
# The result is that which is obfuscated

$_ = q{xxxxx_-n-x.--'x|-n-/___^x|xxxxx.--.-n-xxxxjxuxxxxsxxxxt-n-xxx/x
+x|xx/`xxxxxx'.-n-xxaxxxnotxxxxhxxxxer-n-xx\xxxxxxxxx|xxxxxx|\-n-xxxpx
+xxxexxxrxxxxxxl\|-n-xxxx\xx/'----`\xxx/-n-xxxx|||xxxxxxx\\x|-n-xxxx((
+|xxxxxxxx((|-n-xxxxhacxxxxxxxxker-n-xxx//_(xxxxxxx//_(};s/-n-/\n/g;s/
+x/ /g;print;
[download]

# Another, done the same, different display

$_ = q{xxxxxxxxxxxxxxxxxxxxxxx,.-n-xxxxxxxxxxx.xxxxxxxxxxx:%%%.xxxx.%%
+%.-n-xxxxxxx__%%%(\xxxxxxxx`%%%%%xxx.%%%%%-n-xxxxx/.xx^xx'%xxxxxxxx%%
+%%x%:x,%xx%%"`-n-xxxx'__..xx,'%xxxxx.-%:xxxxx%-'xxxx%-n-xxxxx~~""%:.x
+`xxxxx%x'xxxxxxxxxx.xxx`.-n-xxxxxxxxx%%x%x`xxxjustanotherperlhacker-n
+-xxxxxxxxxx%%:.x`-'xxx`xxxxxxxx.%%x.x%:x:\-n-xxxxxxxxxx%(%,%..."xxx`%
+,xxxxx%%'xxx%%x)x)-n-xxxxxxxxxxx%)%%)%%'xxx)%%%.....-x'xxx"/x(-n-xxxx
+xxxxxxx%a:f%%\x%x/x\`%xx"%%%x`xxx/x\))-n-xxxxxxxxxxxx%(%'xx%x/-.x\xxx
+xxx'xx\x|-.x'.-n-xxxxxxxxxxxx`'xxxx|%xxx`()xxxxxxxxx\|xx`()xxxxxx-n-x
+xxxxxxxxxxxxxxxxx||xxxx/xxxxxxxxxx()xxx/xxxxxxx-n-xxxxxxxxxxxxxxxxxx(
+)xxx0xxxxxxxxxxxx|xxo-n-xxxxxxxxxxxxxxxxxxx\xx/\xxxxxxxxxxxxox/-n-xxx
+xxxxxxxxxxxxxxxxoxx`xxxxxxxxxxxx/-|-n-xxxxxxxxxxxxxxxx,-/x`xxxxxxxxxx
+x,-};s/-n-/\n/g;s/x/ /g;print;
[download]

--
notsoevil
--