perl script removes the unnecessary leading and trailing commas from the input provided

sub Fuctionname
  {
    my $temp=trim(<input>);

$temp=~s/^\,|\,$//g;
$temp=~s/,+/\,/g;

return $temp;
  }