Select Code to Download

$string =~ m[
    ,           # a comma
    \s+         # followed by at least one space
...
          \d+   # one or more digits
    )
];

#! perl -slw
use strict;
...
Item4 - 1 foo, 2 bar
Item1 - 2 foo, 2 bar
Item2 - 0 foo, 1 bar