% time perl -le 'open IN, q( cut -d, -f"1-15" numbers.csv| ); \
print join ",", ( chomp and @F = split /,/ ) while <IN>' > /dev/null
19.49s user 0.00s system 96% cpu 20.289 total