#! /usr/bin/perl -w 

use strict;

my $string = "FOO=1\nFOO=2\nFOO=3\n";

my @list;
while ($string =~ /^FOO=(\d)/mg) {
        push (@list,$1);
}
print join(",",@list)."\n";
# prints out 1,2,3