http://qs1969.pair.com?node_id=1182525


in reply to split string using optimized code or perl one liner

Two fewer lines:
use strict; use warnings; my $string = 'www.perlmonks.org.split.reduce.code.check'; my @array = reverse split /\./, $string; print "Reversed data ==> @array\n";