Help for this page

Select Code to Download


  1. or download this
    my ($digits) = ($name =~ m/$re/);
  2. or download this
      my ($digits) = $name =~ /$re/;
  3. or download this
      my $re = join( '\.' , @re );
  $re = qr/^ $re $/x;
  my $name = shift @ARGV;
  #my ($digits) = $name =~ /$re/;
  my ($digits) = ($name =~ /$re/);