Help for this page

Select Code to Download


  1. or download this
    my @nums = $x =~ /\d+/g;
    
  2. or download this
    $ perl -le'$x = "a1aa11 b2bb22bbb222 c3cc33"; print for ( $x =~ /\s(\S
    ++)\s/ )[ 0 ] =~ /\d+/g'
    2
    22
    222