perl -e"$|++;for(10,40,238,32,32,238,41,32,32,99,97,110,116,10,32,61,40,41,61,32,32,32,117,32,115,101,101,63,10,32,32,196,170,10){print chr $_ ;sleep 1}"



##</code><code>##

##or long explaination

my $eucalypt_branch = 'leaf 'x12;
print 'koala eat ',($_=()= $eucalypt_branch=~/\S+/g),' leaves';

#the koala spend the life to evaluates scalars (eucalypt's branches) in list  
#(of leaves to eat)context and again into a scalar (meal) context until satisfied