Help for this page

Select Code to Download


  1. or download this
     my $string1 =  '123456789';
    my @nonlap = $string1 =~/(\d\d\d)/g;
    #nonlap now contains (123,456,789)
  2. or download this
        my $string2 = 'A81';
    my $digits = $string2 =~ /(\d)+/;
   #$digits now contains '1'