http://www.perlmonks.org?node_id=473466

my_perl has asked for the wisdom of the Perl Monks concerning the following question:

Hi, each line in my file is in format 3434 34456 7788 9999 65444 4 444 444 44443225 12ms:233ms:455ms
755655 5789 333 666776 5553 353534 33 321ms:543ms:45ms
I would like to extract those last 3 numbers and print them coma separated to a new file. These numbers can be 1 - 3 digits length. output should look like this
12,233,455
321,543,45
Thanks