#!/usr/bin/perl
#filename [].pl

@_=(
qq/\l\x48\e\l\x41\l\x43\l\x4b\l\x45\l\x52/=>qq/./=>#;;;;#T
qq/\x23\x64\x22\x4d\x6f\x28/=>q**=>#;;;;;;;;;;;;;L;;;;;;#M
qq/\E\u\x70\e\E\l\x45\l\x52\l\x4c/=>q[]=>#;;;;;;;;a;;;;;#T
qq/\xx\J\oo\a\xx\P\oo\h\xx/=>qq//=>#;;;;;;;;;;;;;;;m;;;;#O  
qq/\l\x41\e\l\x4e\l\x4f\l\x54\l\x48\l\x45\l\x52/=>#;a;;;#W
qq/\u\x6a\e\l\x55\l\x53\l\x54\E/=>#;;;((A^F+)=$%_);;;;;;#T
qq/\c\a\x24\m\x6f\e\x42\l/=>qq/\x<^[(.\.]/=>qq/\a/=>#;;;#D
qq/\111,111,111+x+111,111,111+=+12,345,678,987,654,321/)#I
;@^A=@_[0=>4=>8=>9=>12];@F=reverse+@^A;die+qq q@F q.$/;  
__DATA__                                                
        Perligatus Monachus regere 			
        Perligatus Monachus regere     			
        Perligatus Monachus regere			
__END__