Heh ;)
return join(', ', split(/\n/, $_[0]->{AVS}));
}
or:
local $" = ', ';
my @split = split /\n/, $_[0]->{AVS};
return "@split";
}
Code:
sub { return join(', ', split(/\n/, $_[0]->{AVS}));
}
or:
Code:
sub { local $" = ', ';
my @split = split /\n/, $_[0]->{AVS};
return "@split";
}