Select Code to Download

use strict;
use warnings;
...
    );

print grep {length > 15} map {s/\s+//g; "$_\n"} @fields;

abcabc1abc3abc5
abc2abc3abc5abc7abc9abc10
abc1abc2abc3abc4abc5abc6