my ($digits) = ($name =~ m/$re/);

##</code><code>##

  my ($digits) = $name =~ /$re/;

##</code><code>##

  my $re = join( '\.' , @re );
  $re = qr/^ $re $/x;
  my $name = shift @ARGV;
  #my ($digits) = $name =~ /$re/;
  my ($digits) = ($name =~ /$re/);