print join ' ', (
map{$,=~s &$\&&& while s;[$,,];;;[$,=$_]->[/i/]}@{[qw]
ice justice tan,south,jer, nor,the,pearl, her,packer
]]})
[1..4];