Select Code to Download

sub do_eval {
  my $genome  = "AGTATCGATCGATGCATGCTAGCTAGCTAGCTAGCTAGCTAGSTGCTAGCT";
...
  }
  return $count; # returns 2
}

sub do_eval {
  my $genome  = "AGTATCGATCGATGCATGCTAGCTAGCTAGCTAGCTAGCTAGSTGCTAGCT";
...
  die "Error: $@\n Code:\n$code\n" if ($@);
  return $count; # returns 2
}

sub do_genre {
  my $genome  = "AGTATCGATCGATGCATGCTAGCTAGCTAGCTAGCTAGCTAGSTGCTAGCT";
...
  my $count   = () = $genome =~ /$regex/;
  return $count; # returns 2
}

             Rate  do_eval    do_qr do_genre
do_eval   15531/s       --     -65%     -90%
do_qr     44671/s     188%       --     -72%
do_genre 157893/s     917%     253%       --