#!/usr/bin/perl
use warnings;
use strict;
# comments for myscript_342.pl
my $groups;
my @line;
open my $file, "<", "groupsmembers.txt";
open my $output, ">", "/mnt/backup/output.txt";
while (<$file>) {
push @line, $_;

}
chomp @line;
for (@line) {

s/^\d+/\n/;
s/(\w+)/$1,/;
print $output "$_";
}