"abcde" =~ /(.)(.)(.)(.)(.)/;
  my $var = $4;
  print join ', ', grep !/\D/, keys %::;