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