Select Code to Download

Extract begins with the input line mycompany----engineer=====itdept---
+--33
1234965298.64138
1234965298.64149
1234965298.64153
1234965298.64158

#!/usr/bin/perl
use strict;
use warnings;
...

        #print time,"\n";
}

C:\ww>perl 744750.pl   
Extract begins with the input line acompany----engineer=====itdept----
+-33
Extract begins with the input line bcompany----butcher=====killingfloo
+r-----34
...
Extract begins with the input line acompany----candlestickmaker=====ta
+llow-----36
Extract begins with the input line acompany----monk=====monastery-----
+37
back in main elapsed time for a 5-element @source was: 0.0008189678192
+13867

C:\ww>perl 744750.pl
back in main elapsed time for a 5-element @source was: 0.0001859664916
+99219