my first JAPH

first_japh.pl

#!/usr/bin/perl

# oh my very first JAPH :-D
# dedicated to one of my good
# old friend plucky
# (C) syxanash 2012

$l=do{local$/;<DATA>};$l=~
s/\#//g ;@u=split (' ',$l)
;@k=('a'..'z',' ');foreach
$h(@u){if($h==($#k+ 1)-($u
[0]-2)){$e++;}$e++ ;$s++;}
foreach$z(@u ){print$k [$z
+( $e - $s )] ; }print"\n"

__DATA__

#6     17  ##  15  ##  ##16###
23     -3  ##  ## 10   11
16     4#  1#  14##    23##
12     #1  14  8# 23   4#
#-3##   #-1#   ##  ##  ###7###