# -2 strokes:
echo www.perlmonks.org.split.reduce.code.check |perl -lF'(\.)' -E'say reverse@F'
# Compare to:
echo www.perlmonks.org.split.reduce.code.check |perl -lnE'say reverse split/(\.)/'