Select Code to Download

#! perl -sw
use strict;
...
    ($oldfirst, $oldc2n3) = ($first, $c2n3);
    print "\r$c2n3:$_              ";
}

#! perl -sw
use strict;
...
print "@{[$timer->data('_default')]}", $/;

__END__

C:\test\WORDS>../208899-2 Anonymous Baltic Confirm Delta Entity Font G
+regarious Hazzard Indigo Jalopy Kilo Lascivious Matter Notorious Ovul
+ation 
Prosthetic Quinine Reading Semaphore Transendental Uniform
...
0 0 0 0 0 0.01 0 0 0.01 0 0 0 0 0 0 0.01 0.01 0 0.01 0.01 0 0 0 0 0.01
+ 0

C:\test\WORDS>