$blah =~ s/\s*(,)\s*/$1/g;