Re^4: $str to %hash to @ary

Nice (see my reply to Lymbic~Region); that's fast. In multiple trials, it gets even faster (by ~ 20%) if you don't use a separate variable but instead reset pos($str)

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/
[download]

Comment on Re^4: $str to %hash to @ary Select or Download Code