$string =~ s/([^\s](30))/$1\s/g;