#!perl -0pa $_="@F[1..$_/5+3]"