perl -ne 'chop; print substr($_,_C_O_L_U_M_N,_W_I_D_T_H), "\n";' _F_I_L_E_S
