Help for this page
use strict; use warnings; ... ); print grep {length > 15} map {s/\s+//g; "$_\n"} @fields;
abcabc1abc3abc5 abc2abc3abc5abc7abc9abc10 abc1abc2abc3abc4abc5abc6