Select Code to Download

use Time::HiRes qw[ time ];
 
...
$start=time;
print "Index: ", index $str , "X${pattern}";
printf "\t took %.3f sec\n",time-$start;

Length: 52000001
 
...
     took 0.165 sec
Index: 26000000
     took 0.094 sec