" @{$array[0]}, @{$array[1]}, @{$array[2]}, @{$array[3]}" =~ / (\S+) .*?,.*? (\S+) .*?,.*? (\S+) .*?,.*? (\S+) (?{ push @res,"$1-$2-$3-$4";  })(?!)/;

print join ', ',@res;