Select Code to Download

sub regindex {
  my ($str, $rx, $pos) = @_;
...
  $str =~ /$rx/g or return -1;
  return $-[0];
}