@l=split('',' .Pabcdefgilmoprstuy');@n=split('',
'27FB0EFD9F3CC7FG06D0AH0D48IG53H76BJ1');for(0..$#n){if($n[$_]
gt'F'){$n[$_]="1".(ord($n[$_])-ord('G'));}}print$l[hex($_)]for@n;
[download]

Not overly obfuscated, but strangely appropriate.