Help for this page

Select Code to Download


  1. or download this
    $ perl -E '
    my $re = qr{(\w+)(\s*\d+\s*)*};
...
'
a 1 2 3 : a 3
b 4 5 6: b 6
  2. or download this
    $ perl -E '
    my $re = qr{(\w+)((?:\s*\d+\s*)*)};
...
'
a 1 2 3 : a  1 2 3
b 4 5 6: b  4 5 6
  3. or download this
    $ perl -E '
    my $re = qr{(?<letter>\w+)(?<digit>(?:\s*\d+\s*)*)};
...
'
a 1 2 3 : a  1 2 3
b 4 5 6: b  4 5 6