##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