Help for this page
$ echo www.perlmonks.org.split.reduce.code.check | perl -lanF'(\.)' -E +'say sub{map pop,@_}->(@F)' check.code.reduce.split.org.perlmonks.www $