$string =~ s/\;(?!\;$)//g;