echo www.perlmonks.org.split.reduce.code.check |perl -lnE 'say reverse split /(\.)/'

##</code><code>##

echo www.perlmonks.org.split.reduce.code.check |perl -lnE'say reverse split/(\.)/'