$ time perl 935755-buk.perl 935755.dat > 935755-buk.o

real    3m21.523s
user    3m19.391s
sys     0m0.365s
$ time perl 935755.perl 935755.dat > 935755.o

real    1m24.273s
user    1m23.753s
sys     0m0.051s
$ diff 935755-buk.o 935755.o
35c35
< )
---
> )
\ No newline at end of file