Help for this page

Select Code to Download


  1. or download this
    $foo = '1 a 2 b 3 c';
    while($foo =~ s/(\d)[\D]*$//) {
    ...
    
    __output__
    321