$/="";$_=<DATA>;
sub up{return
("sub ".uc(shift
()))};s/\n//gim;
@_=split/\;/;for
(0..$#_){$_[$_]=~ 
s/^(\w{1}\{)/&up
($1)/e;$_[$_]=~
s/japh/print/;
eval("$_[$_]");} 

&A,&L,&P,&H,&A,&B,&E,&T; 

__DATA__ 
a{japh"s
"};l{jap
h"i"};p{
japh"n"}
;h{japh"
i"};b{ja
ph"t"};e
{japh"e"
};t{japh
"r\n\n"}
[download]