Select Code to Download

my @strings = (
    'foo1234bar',
...
    local $" = ',';
    print "<$string>: (@nums)\n";
}

<foo1234bar>: (1234)
<1234 5678>: (1234,5678)
...
<123>: (123)
< 123>: (123)
<123 >: (123)