foreach ( $string =~ m/($re)/g ) {
  $statistics{$_}++;
}