Select Code to Download

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

#!/usr/bin/perl -w

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