@keys=qw'79 11 34 69 41 27';
@list_to_crypt = split/ /, 'writing Library. Building consider TO($FOO) *binary*' ;
@result=map{ crypt ($_.' ', shift @keys)  } @list_to_crypt ;  

##</code><code>##

79jUStLZ6Ck9c
11anOTHZ33A12
34ERehEMmayDo
69pERLsGUZYU2
41HAcKS9/lrEQ
27eRTYtC6a5HI

##</code><code>##

@matcher =  qw'2 4 4 2 5 4' ;
foreach $crypted (@result ) {
$x = pop @matcher ;
$crypted  =~/..(.{$x}).*/g ;
push @final, $1 ;
}

##</code><code>##

jUSt
anOTH
ER
pERL
HAcK
eR