Select Code to Download

while (<>) {
    $col = 15;
...
    print substr($_, 0, $index), $/;
    $index = 0;
}

$ time perl cut.pl numbers.csv > /dev/null

...
real    0m1.081s
user    0m0.866s
sys     0m0.042s