# throw away trailing crud
pop @triplets if $triplets[-1] !~ /.../;