echo www.perlmonks.org.split.reduce.code.check | perl -lnE 'say sub{map pop,@_}->(split/(\.)/)'