Select Code to Download

#!/usr/bin/perl

...
my $count2 = 0;
++$count2 while $input =~ /mul\(\d{1,3},\d{1,3}\)/g;
printf "scalar context  count2 %d  time %.3f\n", $count2, time - $star
+t;

  list context  count1 3000000  time 1.025
scalar context  count2 3000000  time 0.860