$str =~ s/\s*;\s*/;/g;