$my_text =~ s/,$//;